Aminet 19/Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso/Aminet/comm/bbs/FList_211.lha/FList/Rexx/flist.trans

Text File | 1997-04-05 | 109KB | 3,798 lines

/**/
/* ----------------------------------------------------------------------- */
/*
o
o  $VER: FList v2.11 - S.Gillibrand 1997
o  FList - Copyright S.Gillibrand (c) 1994-1997
o
o  Spaceman, Always wanted you to know, Get into space man, Intergalactic christ.
o  Spaceman, Spaceman, Spaceman, Spaceman, Dueueuebebebbbbbbbbbburr.
o
o  Babylon Z00 Respect To You :-) <Ya Genuis Ya #)>
o
o  Let the junglist vibe take you in, No time to stop ya just gotta spin.
o  Respect, Respect is due.
o
o  RESPECT f8 (Oh my gosh the one and only) (FUCKING MAJIC U4IA MAN! >8*])
o
o  Hey PRODiGY! Keep F**king The Law! - It's The Only Way To Be :-)
o
o  A Digital Design Production in 1997.
o
o  Greets/Threats:
o
o   t00nz     : (Have you got a blocked nose? %)) Try and beat this with "File X" :-)
o   Rmerlin   : (FScroller) Respect m8... Expect I'll see you on the IRC :-)
o   Greg (MFP): Don't even try :-)
o   FileMaint : hehehahehaaa <Sorry>
o   FileLister: Erm, What is this programme supposed to do :/?
o
o  [ (: Well I'm Only 18 :) - Hormones flying allover / etc. :)( ]
o
o  Emails:
o
o   [e-mail] or [e-mail] to send ME mail :)
o   [e-mail] for Bug Reports on Digital Design Software
o   [e-mail] for Improvement Suggestions on DD Software
o   [e-mail] to Congratulate DDesign On Their Excellent s/w :)
o   [e-mail] to Send Hate Mail About DDesign Software :))
o   NIL:                          for All PC/Windows Related Topics. (Amiga OS)
o   NUL                           for All PC/Windows Related Topics. (MSDos)
o   /dev/null                     for All PC/Windows Related Topics. (Unix OS)
o
o  FTS:
o
o   2:250/602.0                   To Route Mail To My BBS
o
o  Requests:
o
o   Anyone who HAS or HAS MADE any song by the Prodigy then crash/uuencode to
o   me :-)
o
o  BBS:
o
o   Digital Dreams Amiga BBS UK (DD WHQ) - 44-1772-454995 24 Hours 10000++ Files
o                                          TransAmiga - 68030/50Mhz - QUAD CDRom
o                                          1Gig HDD - Speeds Up To 14k4
o   FREQS 24 Hours Except ZMH
o
o  Goodbye:
o
o   Thanx For Using DDesign Software.. We KNOW You'll Like It So We Don't Expect
o   Any Bug Reports/Death Threats :-) - Look Out For More DDSW
o
o   Best Place To Get To It First Is MY BBS And The Aminet (Comm/BBS), TAFILES
o   Fidonet File ECHO and TLT On 0181-2416442 (Big Powerful TA Board 8)
o   - Thanx Tom!)
o
o   FList is ENTIRELY coded by Stuart Gillibrand except for the CaseConvert,
o   Time Routines and TrapGhost that have dedications to the author just before
o   them.
o
o   Jamie: The FLAiR is coming at you with that nice chip for ya 14 pin :)))
*/
/* ----------------------------------------------------------------------- */

if ~show(L,'rexxsupport.library') then
   call addlib('rexxsupport.library',0,-30,0)

call defcfg

si=systeminfo
ui=userinfo
gc=getchar
sl=sysoplog

Options Results
Options Failat 9999

Signal On Syntax
Signal On Break_C
Signal On Break_D
Signal On Break_E
Signal On Break_F

flistversion="2.11"
ver$="v"flistversion

BLK=""
RED=""
GRN=""
YEL=""
BLU=""
PNK=""
CYN=""
WHT=""
BLD=""
UBLD=""
ITL=""
UND=""
clr=""
FSH=""
INV=""
BBLK=""
BRED=""
BGRN=""
BYEL=""
BBLU=""
BPNK=""
BCYN=""
BWHT=""
KL=""

newline
send "[FList] Loading language file..."
err=time('r')
call open(in,'bbs:configs/flist.lang','r')
do i=1 to 427
    lang.i=readln(in)
end
call close(in)
print time('e')' seconds'
newline

cls

sl clr||bld"[FList] "ver$" "lang.1||clr

optsline="|A|C|D|E|F|H|I|K|L|M|N|O|P|Q|R|S|T|V|W|X|Y|Z|2|4|6|8|!|*|-|+|=|?|.|/|\|%|"
ui 'x'
ansi=upper(result)
if ansi="OFF" then do
    print "ÜÄÄÜ ÄÜÄÜÄÄÄÜÄ¿"
    print "Û  Û  Û Û   Û"
    print "ÛÄ Û  Û ßßÛ Û "ver$
     send "Û  ÛÜÜÛÜÜÜÛ Û (c) S.Gillibrand 1997 - Digital Design"
    newline;newline
    queryy lang.2
    if upper(Result)="Y" then do
        listfiles
        BLK=""
        RED=""
        GRN=""
        YEL=""
        BLU=""
        PNK=""
        CYN=""
        WHT=""
        BLD=""
        ubld=""
        ITL=""
        UND=""
        clr=""
        FSH=""
        INV=""
        BBLK=""
        BRED=""
        BGRN=""
        BYEL=""
        BBLU=""
        BPNK=""
        BCYN=""
        BWHT=""
        KL=""
        signal boomtown
    end
    cls
end

print BLD||CYN"ÜÄÄÜ ÄÜÄÜÄÄÄÜÄ¿"
print clr||CYN"Û  Û  Û Û   Û"
print BLD||BLU"ÛÄ Û  Û ßßÛ Û "GRN||ver$||ubld"  http://www.digitald.demon.co.uk/"
 send clr||BLU"Û  ÛÜÜÛÜÜÜÛ Û "BLD||YEL"(c) S.Gillibrand 1997 - Digital Design"RED"   "
send lang.3||cyn||bld

newline;newline

print clr||grn"::[ "fsh||lang.4||clr||grn" ]::"

call open(hint,'bbs:configs/FList.hints','r')
hintnum=compress(readln(hint))
do hnt=1 to hintnum
    cookie.hnt=readln(hint)
end
call close(hint)
fortune=random(1,hintnum,right(time(),2))
print clr||grn||bld||cookie.fortune

address command "wait "defwait" secs >NIL:"

maygetchar
if upper(result)="Q" then exit

t=0

err=time('r')

Call Open(In,'BBS:Configs/FList.Cfg','R')
accept=0
extdir=0
do until eof(in)
    data=upper(readln(in))
    if left(data,1)~="@" then iterate
    if data="@END" then leave
    select
        when data="@RESTRICTACCESSFLAGS" then do
            data1=readln(in)
            data2=readln(in)
            RESTRICTACAGS.data1.data2=readln(in)
        end
        when data="@RESTRICTFLAGS" then do
            data2=readln(in)
            RESTRICTFLAGS.data2=readln(in)
        end
        when data="@RESTRICTACCESS" then do
            data2=readln(in)
            RESTRICTACCESS.data2=readln(in)
        end
        when data="@SYSOPMENU" then lameacc=readln(in)
        when data="@SYSOPFUNCTMOVE" then sysopmovetaxx=readln(in)
        when data="@SYSOPFUNCTDEL" then sysopdeltaxx=readln(in)
        when data="@SYSOPFUNCTCOPY" then sysopcopytaxx=readln(in)
        when data="@SYSOPFUNCTXTERN" then sysopterntaxx=readln(in)
        when data="@SYSOPFUNCTDESC" then sysopdesctaxx=readln(in)
        when data="@SYSOPFUNCTPATH" then sysoppathtaxx=readln(in)
        when data="@SYSOPFUNCTEXE" then sysopexetaxx=readln(in)
        when data="@SYSOPFUNCTICE" then sysopicetaxx=readln(in)
        when data="@SYSOPFUNCTNUKE" then sysopnketaxx=readln(in)
        when data="@SYSOPFUNCTOUCH" then sysoptchtaxx=readln(in)
        when data="@SYSOPFUNCTIPRT" then sysopimptaxx=readln(in)
        when data="@USRPATH" then usrpath=readln(in)
        when data="@BINPATH" then binpath=readln(in)
        when data="@CFGPATH" then cfgpath=readln(in)
        when data="@TXTPATH" then txtpath=readln(in)
        when data="@PALETTEPATH" then pltpath=readln(in)
        when data="@SAVEDLPATH" then sdlpath=readln(in)
        when data="@PASSWORDPATH" then pswpath=readln(in)
        when data="@TAVERSION" then taversion=readln(in)
        when data="@DEFWAIT" then defwait=readln(in)
        when data="@TEMPATH" then tempath=readln(in)
        when data="@FPMPATH" then fpmpath=readln(in)
        when data="@FILECOL" then col_file=""readln(in)"m"
        when data="@SIZECOL" then col_size=""readln(in)"m"
        when data="@DATECOL" then col_date=""readln(in)"m"
        when data="@DESCCOL" then col_desc=""readln(in)"m"
        when data="@MAINBARCOL" then col_bar=""readln(in)"m"
        when data="@MAXCLOCK" then maxclock=upper(readln(in))
        when data="@SCRLMETHOD" then sfmeth=readln(in)
        when data="@PRECOMMEXE" then precommexe=readln(in)
        when data="@MULTIPLUG" then plugik=readln(in)
        when data="@USERHELP" then userhelp=upper(readln(in))
        when data="@LOGGING" then loggo=upper(readln(in))
        when data="@TIMESTATS" then tsts=upper(readln(in))
        when data="@NUKEMAIL" then tgmailpath=readln(in)
        when data="@HELPHIM" then failedcmd=readln(in)
        when data="@AREACOMM" then areacomm=upper(readln(in))
        when data="@ENLARGEMARK" then enlargemark=upper(readln(in))
        when data="@FLISTCACHE" then flistcache=upper(readln(in))
        when data="@FPMCOUNT" then fpmopt=upper(readln(in))
        when data="@ASSIGNOUTPUT" then assignoutput=readln(in)
        when data="@MONTHNAMES" then do cosmicgirl=1 to 12
            mname.cosmicgirl=readln(in)
        end
        otherwise nop
    end
end
Call Close(in)
if loggo="OFF" then sl=""

z=time('e')

if flistcache="ON" then print "8H"clr||pnk"úþ "bld||lang.5||ubld" þú"
else print "8H"clr||pnk"úþ "bld||lang.6||ubld||pnk" þú"

do 6;newline;end

if tsts="ON" then print clr||bld||lang.7||z;t=t+z

err=time('r')

maxmark=10
geniushaha.01=lang.8
geniushaha.02=lang.9
geniushaha.03=lang.10
geniushaha.04=lang.11
geniushaha.05=lang.12
geniushaha.06=lang.13
geniushaha.07=lang.14
geniushaha.08=lang.15
geniushaha.09=lang.16
geniushaha.10=lang.17
geniushaha.11=lang.18
geniushaha.12=lang.19

do i=1 to 12
    monk=right(i,2,'0')
    nolf=upper(geniushaha.monk)
    geniusahah.nolf=monk
end

z=time('e');if tsts="ON" then print clr||bld||lang.20||z;t=t+z

err=time('r')

if right(tempath,1)~="/"&right(tempath,1)~=":" then tempath=tempath'/'
if right(fpmpath,1)~="/"&right(fpmpath,1)~=":" then fpmpath=fpmpath'/'
if right(pltpath,1)~="/"&right(pltpath,1)~=":" then pltpath=pltpath'/'
if right(sdlpath,1)~="/"&right(sdlpath,1)~=":" then sdlpath=sdlpath'/'
if right(pswpath,1)~="/"&right(pswpath,1)~=":" then pswpath=pswpath'/'
if right(txtpath,1)~="/"&right(txtpath,1)~=":" then txtpath=txtpath'/'
if right(cfgpath,1)~="/"&right(cfgpath,1)~=":" then cfgpath=cfgpath'/'
if right(binpath,1)~="/"&right(binpath,1)~=":" then binpath=binpath'/'
if right(tgmailpath,1)~="/"&right(tgmailpath,1)~=":" then tgmailpath=tgmailpath'/'

call checkpath(tempath)
call checkpath(fpmpath)
call checkpath(pltpath)
call checkpath(sdlpath)
call checkpath(pswpath)
call checkpath(txtpath)
call checkpath(cfgpath)
call checkpath(binpath)
call checkpath(tgmailpath)

z=time('e');if tsts="ON" then print clr||bld||lang.21||z;t=t+z

err=time('r')

call open(in,cfgpath'File.Cfg','R')
dummy=readln(in)
maxmark=compress(readln(in))
if maxmark="" then maxmark=50

ui 'q'
filesup=result
ui 's'
filesdn=result
ui '7'
usratio=result

if usratio~=0 then bian=((usratio*filesup)-filesdn)+usratio
else bian=65536

dummy=readln(in)
areas=readln(in)
do j=1 to areas
    da=readln(in)
    apat.da=readln(in)
    npat.j=apat.da
    do 6;d=readln(in);end
end

Call Close(in)
z=time('e');if tsts="ON" then print clr||bld||lang.22||z;t=t+z

err=time('r')

tbpline="FList "ver$" (C) S.Gillibrand 1997 - Digital Design"
if plugik="OFF" then tbpliner=grn||bld||tbpline
else do
    tbpliner=""
    coy=0
    do iii=1 to length(tbpline)
        coy=coy+1
        if coy=1 then ccode=clr
        if coy=2|coy=6 then ccode=clr||cyn
        if coy=3|coy=5 then ccode=bld||cyn
        if coy=4 then ccode=bld||wht
        if coy=7 then do;coy=0;iii=iii-1;iterate;end
        tbpliner=tbpliner||ccode||substr(tbpline,iii,1)
    end
end

z=time('e');if tsts="ON" then print clr||bld||lang.23||z;t=t+z

err=time('r')

zeon=areas

bebob=1
rotm=1
scrln=1
pageno=1
pages=1
BBSIDENTIFY sysop
bbsysopname=result
bbsidentify name
bbsname=result
BBSIDENTIFY TERM
lres=result

checkoffline=0
mkf=0
bad=0
markstring=""
showopts=1
si 'z'
areaname=result
areapath=apat.areaname
path=upper(areapath)

ui 'v'
screenln=result
ui 'o'
useraccess=result
si 'r'
bpsrate=result
ui 'a'
username=result
ui 'x'
ansi=result
ui 'g'
userflags=result
systeminfo '8'
bbsline=result

scrln=screenln-8
if scrln<2 then scrln=2

crvar=x2c('0A')

kon=clr
if col_bar="" then kon=clr||und

z=time('e');if tsts="ON" then print clr||bld||lang.24||z;t=t+z

err=time('r')

do i=1 to 8
    if substr(userflags,i,1)="-" then userflags=overlay('O',userflags,i,1)
end

z=time('e');if tsts="ON" then print clr||bld||lang.25||z;t=t+z

err=time('r')

address command "assign FLIST: Exists >"tempath"FLIST_CHECK_ASSIGN"bbsline
Open(asscheckin,tempath"FLIST_CHECK_ASSIGN"bbsline,'R')
dummy=readln(asscheckin)
noneed=0
do until eof(asscheckin)
    If ~carrier then signal boomtown
    if pos("FLIST",upper(Readln(asscheckin)))>0 then noneed=1
end
close(asscheckin)
call checkpath("FILE:FList")
if noneed=0 then address command "Assign FLIST: FILE:FLIST Add >NIL:"

z=time('e');if tsts="ON" then print clr||bld||lang.26||z;t=t+z

err=time('r')

if Open(Out,pltpath||username'.PLT','R') then do
    red=readln(out)
    grn=readln(out)
    yel=readln(out)
    blu=readln(out)
    pnk=readln(out)
    cyn=readln(out)
    wht=readln(out)
    Call Close(out)
end

z=time('e');if tsts="ON" then print clr||bld||lang.27||z;t=t+z

err=time('r')

psw="­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­"
if exists(pswpath||username'.PSW') then do
    tries=0
    sl "[FList] "lang.28
    if tsts="ON" then newline
    print clr||CYN"þ"bld" "lang.29
    do forever
        newline
        If ~carrier then signal boomtown
        prompt 30 'HIDE' '"'clr||RED'ú 'BLD||lang.30||yel': 'bblu||cyn'                              D"'
        epsw=upper(Result)
        Address Command 'LIST "'pswpath||username'.PSW" NOHEAD >'tempath'FLISTPSW'bbsline
        Call Open(Pswin,tempath'FLISTPSW'bbsline,'R')
        dummy=readln(pswin)
        pw=readln(pswin)
        Call Close(pswin)
        psw=right(pw,length(pw)-2)
        if epsw~=upper(psw) then do
            newline
            print clr||pnk"ú "lang.31
            tries=tries+1
            sl "[FList] "tries" "lang.32
            if tries=3 then do;sl "[FList] "lang.33;signal boomtown;end
        end
        if epsw=upper(psw) then leave
    end
    sl "[FList] "lang.34
    newline;send cyn
    if tsts="ON" then newline
end

z=time('e');if tsts="ON" then print clr||bld||lang.35||z;t=t+z

err=time('r')

lstmarkedfiles tempath"Cool.FList"bbsline
If exists(tempath"Marked"bbsline) then do
    if exists(tempath"Cool.FList"bbsline) then do
        print clr||yel"þ"bld" "lang.36||clr
        newline
        send cyn
        Call Open(Bagman,tempath"Cool.FList"bbsline,'R')
        Call Open(Relive,tempath'Marked'bbsline,'R')
        Call Open(Terrys,tempath'Chocolate'bbsline,'W')
        chowmein=0
        do until eof(bagman)
            fn=readln(bagman)
            if compress(fn)~="" then mkf=mkf+1
            call seek(relive,0,'B')
            do until upper(word(data,1))=upper(fn)|eof(relive)
                data=readln(relive)
                guyfawkes=word(data,1)
                filenim=upper(guyfawkes)
                if upper(filenim)=compress(upper(fn)) then do
                    call writeln(terrys,data)
                    chowmein=chowmein+1
                    gr=word(data,2);nm=word(data,3);descofile.filenim=translate(word(data,4),' ','­');areaofile.filenim=word(data,5);goar.filenim=gr
                    mark.filenim.gr="Y"
                    npat.filenim=areaofile.filenim
                    markstring=markstring||guyfawkes" "
                end
            end
        end
        Call Close(Relive)
        Call Close(Bagman)
        Call Close(Terrys)
        address command 'rename "'tempath'Chocolate" "'tempath'Marked'bbsline'" >NIL:'
    end
    else address command 'delete "'tempath'Marked'bbsline'" >NIL:'
end
else do
    if exists(sdlpath||username'.SDL')&~exists('RAM:FList_Remark') then do
        queryy clr||pnk"þ"bld" "lang.37||clr
        if upper(result)="Y" then call remark
    end
end

z=time('e');if tsts="ON" then print clr||bld||lang.38||z;t=t+z
newline
if tsts="ON" then print clr||bld||lang.39||t" "lang.40

err=time('r')

ceedee_now=0
extdev_now=0
if exists('RAM:FList_Remark') then do
    address command "delete RAM:FList_Remark >NIL:"
    call remark
    signal boomtown
end
if exists('RAM:FList_CD') then do
    address command "delete RAM:FList_CD >NIL:"
    call cdromhandler
    signal markemate
end
if exists('RAM:FList_ED') then do
    address command "delete RAM:FList_ED >NIL:"
    call edevhandler
    signal markemate
end

call redraw
si '2'
fool=result
farea=setarea(fool)

fscroller:
start=1
bebob=0
call reloadfiles
call scroll
do forever
    if ~carrier then signal boomtown
    if maxclock="ON" then send ""scrln+4"H"BLD||RED||kl"C"qt()
    else send ""scrln+4"H"BLD||RED||kl"C"time()
    send ""scrln+4"H"BLD||YEL"Select: "grn||bld
    bufferflush
    err=time('r')
    do until fsopt~="RESULT"&fsopt~="NOCHAR"
        if ~carrier then signal boomtown
        if word(lres,1)=80&word(lres,3)~=0&userhelp="ON" then do
            if left(time('e'),2)=30 then call lloose(lang.41)
            if left(time('e'),2)=35 then call lloose(lang.42)
            if left(time('e'),2)=40 then call lloose(lang.43)
            if left(time('e'),2)=45 then call lloose(lang.44)
            if left(time('e'),2)=50 then call lloose(lang.45)
            if left(time('e'),2)=55 then call lloose(lang.46)
            if left(time('e'),2)=60 then call lloose(lang.47)
            if left(time('e'),2)=65 then call lloose(lang.48)
            if left(time('e'),2)=70 then call lloose(lang.49)
            if left(time('e'),2)=75 then call lloose(lang.50)
            if left(time('e'),2)=80 then call lloose(lang.51)
            if left(time('e'),2)=85 then call lloose(lang.52)
            if left(time('e'),2)=90 then call lloose(lang.53)
            if left(time('e'),2)=95 then call lloose(lang.54)
            if left(time('e'),3)=100 then call lloose(lang.55)
            if left(time('e'),3)=105 then call lloose(lang.56)
            if left(time('e'),3)=110 then call lloose(lang.57)
            if left(time('e'),3)=115 then call lloose(lang.58)
            if left(time('e'),3)=120 then call lloose(lang.59)
            if left(time('e'),3)=125 then call lloose(lang.60)
            if left(time('e'),3)=130 then call lloose(lang.61)
            if left(time('e'),3)=135 then call lloose(lang.62)
            if left(time('e'),3)=140 then call lloose(lang.63)
            if left(time('e'),3)=145 then call lloose(lang.64)
            if left(time('e'),3)=150 then call lloose(lang.65)
            if left(time('e'),3)=155 then do;call lloose(lang.66);err=time('r');end
        end
        bufferflush
        maygetchar
        fsopt=upper(result)
        If fsopt='1B'x | fsopt='9B'x | fsopt='5B'x then do
            maygetchar ; Tmp = result
            if tmp="[" then do
                maygetchar;tmp=result
                If Tmp = 'A' then fsopt='8'
                If Tmp = 'B' then fsopt='2'
                If Tmp = 'C' then fsopt='1'
                If Tmp = 'D' then fsopt='7'
            end
            else do
                If Tmp = 'A' then fsopt='8'
                If Tmp = 'B' then fsopt='2'
                If Tmp = 'C' then fsopt='1'
                If Tmp = 'D' then fsopt='7'
            end
        End
    end
    send ""scrln+4"H"kl
    send ""scrln+4"H"kl||BLD||YEL||lang.67||grn||bld
    if fsopt="K" then call flick
    if fsopt="/" then drop cache.
    if fsopt="\" then do
        do sisters=1 to mkf
            voice=upper(word(markstring,sisters))
            ger=goar.voice
            mark.voice.ger="N"
        end
        markstring=""
        mkf=0
        call redraw(1)
        call scroll
    end
    if fsopt='0D'x then fsopt="2"
    if fsopt='08'x then fsopt="8"
    if c2d(fsopt)=67 then do
        maygetchar
        shen=result
        secval=1
        if shen~="NOCHAR"&shen~="RESULT" then secval=c2d(shen)
        if secval=50 then do;soak=lang.69;send soak;sl "[FList] "lang.68" (> "soak" <)";fsopt="";sendfile txtpath"FLISTMAINHELP";newline;continue;call redraw;call scroll;end
    end
    if (fsopt="2"|fsopt="3")&pageno<pages then do
        soak=lang.70
        send soak
        sl "[FList] "lang.68" (> "soak" <)"
        pageno=pageno+1
        if pageno=pages then start=bebob-(scrln-1)
        else start=start+scrln
        maygetchar
        if upper(result)="NOCHAR" then call scroll
        else call flick
    end
    if fsopt="8"|fsopt="9" then if START>1 then do
        soak=lang.71
        send soak
        sl "[FList] "lang.68" (> "soak" <)"
        if start-scrln<1 then start=scrln+1
        pageno=pageno-1
        start=start-scrln
        maygetchar
        if upper(result)="NOCHAR" then call scroll
        else call flick
    end
    if (fsopt="4"|fsopt="7")&pageno~=1 then do;soak=lang.72;send soak;sl "[FList] "lang.68" (> "soak" <)";start=1;pageno=1;call scroll;end
    if (fsopt="6"|fsopt="1")&pages>1&pageno~=pages then do;soak=lang.73;send soak;sl "[FList] "lang.68" (> "soak" <)";start=bebob-(scrln-1);pageno=pages;call scroll;end
    if (fsopt="I"&bebob>2)&start<bebob then do;soak=lang.74;send soak;sl "[FList] "lang.68" (> "soak" <)";call editdesc;end
    if fsopt="L" then do;soak=lang.75;send soak;sl "[FList] "lang.68" (> "soak" <)";call palprefs;call scroll;end
    if fsopt="P" then do;soak=lang.76;send soak;sl "[FList] "lang.68" (> "soak" <)";cls;send clr;call passwrd;end
    if fsopt="?" then do;soak=lang.77;send soak;sl "[FList] "lang.68" (> "soak" <)";sendfile txtpath"FLISTMAINHELP";newline;continue;call redraw;call scroll;end
    if fsopt="!" then do;soak=lang.78;send soak;send clr;cls;newline;call remark;call redraw;call scroll;end
    if fsopt="@" then do;call cdromhandler;call redraw;call scroll;end
    if fsopt="$" then do;call edevhandler;call redraw;call scroll;end
    if fsopt="F" then do
        soak=lang.79
        send soak
        if showopts=1 then showopts=2
        else if showopts=2 then showopts=3
        else if showopts=3 then do;if useraccess>=lameacc then showopts=4;else showopts=1;end
        else if showopts=4 then showopts=1
        sl "[FList] "lang.80||showopts
        call redraw(1)
    end
    if fsopt="A" then do
        soak=lang.81
        send soak
        sl "[FList] "lang.68" (> "soak" <)"
        farea=areachange()
        farea=setarea(farea)
        call reloadfiles
        call scroll
    end
    if fsopt="W" then do;soak=lang.82;send soak;sl "[FList] "lang.68" (> "soak" <)";call redraw;call scroll;end
    if fsopt='1B'x then fsopt="Q"
    if fsopt="%"&useraccess>=sysopimptaxx then do
        soak=lang.83
        send soak
        sl "[FList] "lang.68" (> "soak" <)"
        call dimport
    end
    if fsopt="H"&useraccess>=sysoptchtaxx then do
        soak=lang.84
        send soak
        sl "[FList] "lang.68" (> "soak" <)"
        call touch
    end
    if fsopt="|" then exit
    if fsopt="Q" then do
        soak=lang.85
        sl "[FList] "lang.68" (> "soak" <)"
        send soak

        markemate:
        maygetchar
        if upper(result)="A" then signal areachange
        mkf=words(markstring)
        alreadymarked=''
        lstmarkedfiles tempath"FLIST_MARKED.Tmp"bbsline
        if open(in,tempath'FLIST_MARKED.Tmp'bbsline,'R') then do
            do until eof(in)
                amf=readln(in)
                alreadymarked=alreadymarked'*'amf'*'
            end
            Call Close(in)
        end
        address command 'delete "'tempath'FLIST_MARKED.Tmp'bbsline'" >NIL:'
        if open(fides,tempath'File_Id'bbsline,'W') then do
            Call Writeln(fides,'')
            Call Writeln(fides,'       -----------------------------------------------------------------')
            Call Writeln(fides,'     _[ FList - Stuart Gillibrand 1994-1997 - Digital Design Production ]_')
            Call Writeln(fides,lang.86||left(bbsname,39)' ]-''')
            Call Writeln(fides,'.-----------------------------------------------------------------------------.')
            Call Writeln(fides,lang.87)
            Call Writeln(fides,'`-----------------------------------------------------------------------------''')
        end
        failfile=0
        bagtaghag=0
        tetots=0
        ttfd=0
        if mkf>0&compress(markstring)~="" then do
            if ~exists(tempath'Marked'bbsline) then do;Call open(assure,tempath'Marked'bbsline,'W');Call Close(Assure);end
            Call open(assure,tempath'Marked'bbsline,'A')
            cls
            newline
            markstring=strip(markstring,'T')
            markstring=strip(markstring,'L')
            PSB=0
            Do Forever
                If ~carrier then signal boomtown
                do until pos('*'file'*',alreadymarked)=0
                    PSB=PSB+1
                    origfile=subword(markstring,psb,1)
                    file=upper(subword(markstring,psb,1))
                    if compress(file)="" then leave
                    if pos('*'file'*',alreadymarked)>0 then mkf=mkf-1
                end
                if compress(file)="" then leave
                mintola=compress(file)
                filearea areaofile.mintola
                send BLD||CYN||left(file,24)" "
                markfile file
                fullpath=result
                failfile=0
                if upper(fullpath)="FAIL" then do;send RED||BLD||lang.88;failfile=1;mkf=mkf-1;newline;newline;end
                if upper(fullpath)="ALLREADY" then do;send RED||BLD||lang.89;failfile=1;newline;newline;fullpath="FAIL";mkf=mkf-1;end
                if upper(fullpath)~="FAIL"&failfile=0 then do
                    send yel||BLD||lang.90
                    if useraccess>=sysoppathtaxx then send "  "wht||bld||fullpath
                    call open(Incol,fullpath,'R')
                    fsize=seek(incol,0,'E')
                    Call Close(incol)
                    sheekan=dltime(fsize)
                    if enlargemark="ON" then do
                        newline
                        send bld||yel||left(fsize" "lang.91" ",25)
                        print bld||yel||word(sheekan,1)" "lang.92", "word(sheekan,2)" "lang.93" at "bpsrate" "lang.94
                    end
                    Call Writeln(fides,left(file,22)'  'right(fsize,8)'  'translate(descofile.mintola,d2c(10),'º'))
                    Call writeln(assure,origfile' 'goar.mintola' 'translate(descofile.mintola,'­',' ')' 'areaofile.mintola)
                    tetots=tetots+fsize
                    newline
                    if fpmopt="ON" then do
                        if ~exists(fpmpath||file'.fpm') then pmak=1
                        else do
                            Call Open(pmarkin,fpmpath||file'.fpm','R')
                            pmak=readln(pmarkin)
                            if datatype(pmak)~="NUM" then pmak=0
                            pmak=pmak+1
                            Call Close(pmarkin)
                        end
                        Call Open(pmarkout,fpmpath||file'.fpm','W')
                        Call writeln(pmarkout,pmak)
                        Call Close(pmarkout)
                    end
                end
                else bagtaghag=1
            end
        end
        newline
        if bagtaghag=1 then do
            newline
            continue
            cls
            sendfile txtpath"FList_MarkFail.ANSI"
            continue
            newline
        end
        if mkf>0 then do
            mend=dltime(tetots)
            sl "[FList] "lang.95"["mkf"] "lang.96" ["tetots"]"
            print clr||bld||lang.97" "cyn||tetots
            print clr||bld||lang.98" "cyn||mkf
            print clr||bld||lang.99" "cyn||word(mend,1)" "lang.92", "word(mend,2)" "lang.92"."
            parsec=word(mend,1)
            if word(mend,2)>0 then parsec=parsec+1
            Call Writeln(fides,'')
            Call Writeln(fides,'.------------------------------------------------------------------------------.')
            Call Writeln(fides,'| Digital Dreams Amiga BBS UK - 44-1772-454995 - [e-mail] |')
            Call Writeln(fides,'|------------------------------------------------------------------------------|')
            Call Writeln(fides,'| 'lang.101'['right(mkf,4)']  'lang.97'['right(tetots,8)']  'lang.102'['word(mend,1)' 'lang.103', 'word(mend,2)' 'lang.104'] |')
            Call Writeln(fides,'`------------------------------------------------------------------------------''')
            Call Writeln(fides,'')
            Call Close(fides)
            Call Close(assure)
            newline
            si 'm'
            tonlin=result
            if tonlin<parsec then do
                newline
                print RED||lang.105||YEL||tonlin" "lang.92
                print RED||lang.100||YEL||parsec" "lang.92
                sl "[FList] "lang.106"["tonlin"] "lang.107" ["parsec"]"
                newline
                print CYN||BLD||lang.108
                newline
                print CYN||BLD||lang.109
                print CYN||BLD||lang.110
                print CYN||BLD||lang.111
                newline
                print YEL||BLD||lang.112
                newline
                continue
                do clare=1 to words(markstring)
                    unmarkfile subword(markstring,clare,1)
                end
                pageno=1
                signal fscroller
            end
            send BLD||WHT||lang.113
            call checkpath(sdlpath)
            if ~exists(sdlpath||username'.SDL') then do;call Open(LivinJoy,sdlpath||username'.SDL','W');call close(LivinJoy);end
            Call Open(MFOut,sdlpath||username'.SDL','R')
            Do until eof(mfout)
                if ~carrier then signal boomtown
                dat=readln(mfout)
                data=upper(word(dat,2))
                smallhdd.data=":-)"
            End
            Call close(mfout)
            Call Open(MFOut,sdlpath||username'.SDL','A')
            do psa=1 to words(markstring)
                If ~carrier then signal boomtown
                sirenag=upper(subword(markstring,psa,1))
                if jam.buttie.sirenag="Don't Even Ask :-)" then iterate
                if sirenag="" then leave
                nicenripe=""
                if areaofile.mintola~="AREAOFILE."mintola&areaofile.mintola~="" then nicenripe=areaofile.mintola' 'sirenag' 'translate(descofile.sirenag,'­',' ')' 'goar.sirenag
                if smallhdd.sirenag~=":-)" then Call Writeln(MFOut,nicenripe)
            end
            Call Close(MFOut)
            print RED"Saving Complete."
            print clr||GRN||BLD||lang.114" `"FSH"!"clr||BLD||GRN"' "lang.115
            newline
            locl=0
            if word(lres,1)=80&word(lres,3)~=0 then do
                queryn clr||BLD||WHT||lang.116
                if upper(result)="Y" then do
                    protocolsend tempath"File_Id"bbsline
                    address command 'Delete "'tempath'File_Id'bbsline'" >NIL:'
                end
            end
            else continue
        end
        send clr;cls
        signal boomtown
    end
    if fsopt="C"&checkoffline=0 then do
        soak=lang.117;send soak
        checkoffline=1
        fsopt=""
        send clr""scrln+7";0H"kl||WHT||lang.118
        address command "WAIT "defwait" >NIL:"
        send ""scrln+7";0H"kl
    end
    if fsopt="C"&checkoffline=1 then do
        soak=lang.119
        send soak
        checkoffline=0
        fsopt=""
        send clr""scrln+7";0H"kl||WHT||lang.120
        address command "WAIT "defwait" >NIL:"
        send ""scrln+7";0H"kl
    end
    if fsopt="="|fsopt="+" then do;soak=lang.121;send soak;sl "[FList] "lang.68" (> "soak" <)";scrln=scrln+1;call redraw;send "H"YEL||BLD||lang.122||clr;end
    if fsopt="-"&scrln>3 then do;soak=lang.123;send soak;sl "[FList] "lang.68" (> "soak" <)";scrln=scrln-1;call redraw;send "H"YEL||BLD||lang.122||clr;end
    if fsopt="T" then do
        soak=lang.124
        send soak
        scrln=screenln-8
        if scrln<2 then scrln=2
        call redraw
        call scroll
    end
    if fsopt="*"&bebob>2 then do;soak=lang.125;send soak;sl "[FList] "lang.68" (> "soak" <)";call sort;end
    if (fsopt="M"&bebob>2)&start<bebob then do;soak=lang.126;send soak;sl "[FList] "lang.68" (> "soak" <)";call mark;end
    if (fsopt="R"&bebob>2)&start<bebob then do;soak=lang.127;send soak;sl "[FList] "lang.68" (> "soak" <)";call arcmark;end
    if (fsopt="O"&bebob>2)&start<bebob then do;soak=lang.128;send soak;sl "[FList] "lang.68" (> "soak" <)";call mormark;end
    if (fsopt="V"&useraccess>=sysopmovetaxx)&start<bebob then do;soak=lang.129;send soak;sl "[FList] "lang.68" (> "soak" <)";call movefile;end
    if (fsopt="D"&useraccess>=sysopdeltaxx)&start<bebob then do;soak=lang.130;send soak;sl "[FList] "lang.68" (> "soak" <)";call delfile;end
    if (fsopt="Y"&useraccess>=sysopcopytaxx)&start<bebob then do;soak=lang.131;send soak;sl "[FList] "lang.68" (> "soak" <)";call copfile;end
    if (fsopt="Z"&useraccess>=sysopexetaxx&bebob>2)&start<bebob then do;soak=lang.132;send soak;sl "[FList] "lang.68" (> "soak" <)";call exefile;end
    if (fsopt="."&useraccess>=sysopicetaxx)&start<bebob then do;soak=lang.133;send soak;sl "[FList] "lang.68" (> "soak" <)";call icefile;end
    if fsopt="S"&bebob>2 then do;soak=lang.134;send soak;sl "[FList] "lang.68" (> "soak" <)";call searchforfile;end
    if (fsopt="E"&bebob>2)&start<bebob then do;soak=lang.135;send soak;sl "[FList] "lang.68" (> "soak" <)";call rtxtphile;end
    if (fsopt="X"&useraccess>=sysopterntaxx) then do;soak=lang.136;send soak;sl "[FList] "lang.68" (> "soak" <)";call extdir;end
    if (fsopt="N"&useraccess>=sysopnketaxx)&start<bebob then do;soak=lang.137;send soak;sl "[FList] "lang.68" (> "soak" <)";call nukefile;end
    if open(chk,giddy,'r') then do
        newsize=seek(chk,0,'E')
        call close(chk)
    end
    if newsize~=oldsize&extdir=0 then do
        forceload=1
        call alertit(clr||red||bld||lang.138)
        sl "[FList] "lang.139
        call reloadfiles
        call scroll
    end
    if pos('|'fsopt'|',optsline)=0 then bad=bad+1
    else bad=0
    if bad=failedcmd then do
        call alertit(clr||red||bld||lang.140)
        sendfile txtpath"FLISTMAINHELP"
        newline
        continue
        call redraw
        call scroll
        bad=0
    end
    fsopt=""
end

exit

searchforfile:
opag=pageno
turbotoon=0
query ""scrln+7";0H"YEL||lang.141||CYN
sopostsf=upper(Result)
if sopostsf="RESULT" then do;send ""scrln+7";0H"kl;return;end
send ""scrln+7";0H"kl||CYN||bld||lang.142||YEL"["WHT||sopostsf||YEL"]"CYN" ... "GRN
sl "[FList] String: ["sopostsf"]"
do z=1 to bebob
    if turbotoon=0&right(z,1)='0' then send right(z,5,'0')"/"right(bebob,5,'0')"D"
    if pos(sopostsf,upper(currfname.z))>0 then do
        opag=pageno
        start=z
        if z<=Scrln then do;pageno=1;start=1;end
        else do
            pint=z/scrln
            dink=pos('.',pint)
            if dink>0 then pageno=left(pint,dink-1)+1
            else pageno=pint+1
            start=(pageno-1)*scrln
        end
        if z>Start then nird=z-start
        else nird=0
        send ""scrln+7";0H"kl||WHT||lang.143||clr
        send ""scrln+7";0H"kl
        send clr"H"
        if opag~=pageno|pageno=pages then call scroll
        send ""nird+3";0H"
        if left(currfname.z,1)~="\" then send UND||BLD||PNK||left(ansify(z),93)||clr
        else send kl||UND||col_desc||BLD||left(right(currfname.z,length(currfname.z)-1),78)||clr||col_file
        if turbotoon=0 then do
            do until gwantanoma="C"
                send ""scrln+7";0H"
                send clr||bld||cyn"("yel"C"cyn")"grn||lang.144||cyn"("yel"M"cyn")"grn||lang.145||cyn"("yel"A"cyn")"grn||lang.146||cyn"("yel"T"cyn")"grn||lang.147||wht||fsh"::> "clr
                bufferflush;gc
                gwantanoma=upper(result)
                send ""nird+3";0H"
                if gwantanoma="T" then do
                    turbotoon=1
                    row=nird+3
                    if left(currfname.z,1)="\" then do
                        zelda=z
                        do until left(currfname.zelda,1)~="\"
                            row=row-1
                            zelda=zelda-1
                        end
                        if row<3 then do
                            start=start-scrln
                            pageno=pageno-1
                            call scroll
                            row=(zelda-start)+3
                        end
                        if strip(upper(substr(currfname.zelda,40,40)),'T')="FILE_ID.DIZ DESCRIPTION" then call submark(zelda)
                    end
                    else call submark(z)
                    gwantanoma="C"
                end
                if gwantanoma="M" then do
                    row=nird+3
                    if left(currfname.z,1)="\" then do
                        zelda=z
                        do until left(currfname.zelda,1)~="\"
                            row=row-1
                            zelda=zelda-1
                        end
                        if row<3 then do
                            start=start-scrln
                            pageno=pageno-1
                            call scroll
                            row=(zelda-start)+3
                        end
                        if strip(upper(substr(currfname.zelda,40,40)),'T')="FILE_ID.DIZ DESCRIPTION" then call submark(zelda)
                    end
                    else call submark(z)
                end
                if gwantanoma="A" then do;send ""scrln+7";0H"kl;return;end
                if ~carrier then signal boomtown
            end
        end
        else do
            tip=upper(word(currfname.z,1))
            if mark.tip.goarea="Y" then break
            row=nird+3
            if left(currfname.z,1)="\" then do
                zelda=z
                do until left(currfname.zelda,1)~="\"
                    row=row-1
                    zelda=zelda-1
                end
                tip=upper(word(currfname.zelda,1))
                if mark.tip.goarea="Y" then break
                if row<3 then do
                    start=start-scrln
                    pageno=pageno-1
                    call scroll
                    row=(zelda-start)+3
                end
                if strip(upper(substr(currfname.zelda,40,40)),'T')="FILE_ID.DIZ DESCRIPTION" then call submark(zelda)
            end
            else call submark(z)
        end
        send ""scrln+7";0H"kl||CYN||bld||lang.142||YEL"["WHT||sopostsf||YEL"]"CYN" ..."
    end
end
send ""scrln+7";0H"kl||WHT||bld||lang.148||clr
address command "WAIT "defwait" >NIL:"
send ""scrln+7";0H"kl
return

scroll:
print ""scrln+3";24H"clr||col_bar||yel||bld||fsh"þ"clr
if sfmeth=0 then do
    send "H"
    send clr||col_file
    do i=start to start+(scrln-1)
        if i>bebob then currfname.i="\"
        if left(currfname.i,1)="\" then print kl||col_desc||BLD||translate(substr(currfname.i,2,78)," ",d2c(9))||clr||col_file
        else do
            tip=upper(word(currfname.i,1))
            if mark.tip.goarea="Y" then send RED||BLD
            print left(ansify(i),93)||clr||col_file
            if checkoffline=1 then if ~exists(areapath||word(currfname.i,1)) then do
                print "[["areapath||word(currfname.i,1)"]]"
                getchar
                print "AC"RED||BLD||FSH||lang.149||clr
                getchar
                exit
            end
        end
    end
end
else do
    call open(out,tempath'GsaPar'bbsline,'w')
    call writech(out,"H")
    call writech(out,clr||col_file)
    do i=start to start+(scrln-1)
        if i>bebob then currfname.i="\"
        if left(currfname.i,1)="\" then call writeln(Out,kl||col_desc||BLD||translate(substr(currfname.i,2,78)," ",d2c(9))||clr||col_file)
        else do
            tip=upper(word(currfname.i,1))
            if mark.tip.goarea="Y" then call writech(out,RED||BLD)
            call writeln(out,left(ansify(i),93)||clr||col_file)
            if checkoffline=1 then if ~exists(areapath||word(currfname.i,1)) then call writeln(out,"AC"RED||BLD||FSH||lang.149||clr)
        end
    end
    call close(out)
    send ""scrln+7";0H"kl
    sendfile tempath"GsaPar"bbsline
end
print BLD||col_bar||WHT""scrln+3"HF"ubld"List "bld||left(lang.150,1)||ubld||substr(lang.150,2)" "bld"("blk||bld||lang.151" "showopts||wht")"clr||col_bar||BLK" þ "BLD||col_bar||red"["grn||right(pageno,length(pages),'0')||WHT"/"YEL||pages||red"]   "clr
return

movefile:
if compress(markstring)="" then do;call alertit(RED||BLD||lang.152);return;end

comeback=customquest(lang.420)
if upper(comeback)~="Y" then return

si '2'
curraread=result

marea=areachange()

call scroll

print ""scrln+4"H"kl
send ""scrln+4"H"BLD||WHT||lang.153||clr
do words(markstring)
    send "."
end

do pork=1 to words(markstring)
    send ""scrln+4";"pork+8"H"clr||bld||red"o"
    send clr"A2H"GRN||lang.154||WHT||mkf" "
    disfilen=word(markstring,pork)
    ddisfilen=upper(disfilen)
    zink=areaofile.ddisfilen
    areapath=npat.zink
    mkf=mkf-1
    ger=goar.ddisfilen
    mark.ddisfilen.ger="N"
    if areaofile.ddisfilen=marea then iterate
    if ~Open(in,goar.ddisfilen,'R') then iterate
    Call Open(out,tempath'flistmove.tmp'bbsline,'W')
    tcptg=0
    vanessa=0
    Do Until eof(in)
        If ~carrier then signal boomtown
        if vanessa=0 then ri=readln(in)
        vanessa=0
        if upper(word(ri,1))~=upper(disfilen)&ri~="" then Call Writeln(out,ri)
        if upper(word(ri,1))=upper(disfilen)&ri~="" then do
            mfl=ri
            if pos("FILE_ID.DIZ DESCRIPTION",upper(substr(ri,40,40,)))>0 then do
                tcptg=1
                daytona=0
                do until left(ri,1)~="\"
                    daytona=daytona+1
                    ri=readln(in)
                    fidbit.daytona=ri
                end
                daytona=daytona-1
                vanessa=1
            end
        end
    end
    Call Close(in)
    Call Close(out)
    if extdir=0 then address command 'copy "'tempath'flistmove.tmp'bbsline'" "'goar.ddisfilen'" noreq >NIL:'
    address command 'delete "'tempath'flistmove.tmp'bbsline'" >NIL:'
    newline
    FILEAREA marea
    si '7'
    mpath=upper(result)
    sl "[FList] Moving ["areapath||disfilen"] To ["mpath"]"
    address command 'COPY "'areapath||disfilen'" "'mpath'" noreq >NIL:'
    if extdir=0 then address command 'DELETE "'areapath||disfilen'" >NIL:'
    address command 'COPY "'areapath||disfilen'.DESC" "'mpath'" noreq >NIL:'
    if extdir=0 then address command 'DELETE "'areapath||disfilen'.DESC" >NIL:'
    if Call Open(out,mpath'files.bbs','A')=1 then nop
    else call open(out,mpath'files.bbs','w')
    Call Writeln(out,mfl)
    if tcptg=1 then do
        do nemesis=1 to daytona
            Call Writeln(out,fidbit.nemesis)
        end
    end
    Call Close(out)
end
if extdir=0 then call setarea(curraread)
send clr"A2H"GRN||lang.154||WHT||mkf" "
row=row-1
call tenf
if smeeegheed=1 then return
call louise_sleeper
mkf=0
markstring=""
if smeeegheed=1 then return
if bebob<3 then return
return

delfile:
if compress(markstring)="" then do;call alertit(RED||BLD||lang.152);return;end
query ""scrln+7";0H"kl||pnk||bld||lang.155||yel"- "grn"y"blu"/"red"N "cyn"?"ubld"> "bld||wht
toddterry=result
send clr""scrln+7";0H"kl
if upper(toddterry)~="Y" then return
if compress(markstring)="" then return

print ""scrln+4"H"kl
send ""scrln+4"H"BLD||WHT||lang.156||clr
do words(markstring)
    send "."
end

do pork=1 to words(markstring)
    send ""scrln+4";"pork+9"H"clr||bld||red"o"
    send clr"A2H"GRN||lang.154||WHT||mkf" "
    disfilen=word(markstring,pork)
    ddisfilen=upper(disfilen)
    zink=areaofile.ddisfilen
    areapath=npat.zink
    Call Open(in,goar.ddisfilen,'R')
    Call Open(out,tempath'flistmove.tmp'bbsline,'W')
    tcptg=0
    vanessa=0
    Do Until eof(in)
        If ~carrier then signal boomtown
        if vanessa=0 then ri=readln(in)
        vanessa=0
        if upper(word(ri,1))~=upper(disfilen)&ri~="" then Call Writeln(out,ri)
        if upper(word(ri,1))=upper(disfilen)&ri~="" then do
            mfl=ri
            if pos("FILE_ID.DIZ DESCRIPTION",upper(substr(ri,40,40,)))>0 then do
                tcptg=1
                daytona=0
                do until left(ri,1)~="\"
                    daytona=daytona+1
                    ri=readln(in)
                    fidbit.daytona=ri
                end
                daytona=daytona-1
                vanessa=1
            end
        end
    end
    Call Close(in)
    Call Close(out)
    sl "[FList] Deleting ["areapath||disfilen"]"
    if extdir=0 then address command 'COPY "'tempath'flistmove.tmp'bbsline'" "'goar.ddisfilen'" noreq >NIL:'
    else address command 'COPY "'tempath'flistmove.tmp'bbsline'" "File:FlistExd/Files.BBS" noreq >NIL:'
    address command 'delete "'tempath'flistmove.tmp'bbsline'" force >NIL:'
    address command 'delete "'areapath||disfilen'" force >NIL:'
    address command 'delete "'areapath||disfilen'.DESC" force >NIL:'
    ger=goar.ddisfilen
    mark.ddisfilen.ger="N"
    mkf=mkf-1
end
markstring=""
mkf=0
call alertit(clr||red||bld||lang.157)
call scroll
send clr"A2H"GRN||lang.154||WHT||mkf" "
row=row-1
call tenf
if smeeegheed=1 then return
call louise_sleeper
if smeeegheed=1 then return
if bebob<3 then return
return

copfile:
if compress(markstring)="" then do;call alertit(RED||BLD||lang.152);return;end

comeback=customquest(lang.421)
if upper(comeback)~="Y" then return

send clr""scrln+7";0H"
query CYN||lang.158||YEL"\\RAM:"
fullcpath=result
if compress(markstring)="" then return

if ~exists(fullcpath) then send clr""scrln+7";0H"bld||cyn||lang.159||clr
call checkpath(fullcpath)

print ""scrln+4"H"kl
send ""scrln+4"H"BLD||WHT||lang.160||clr
do words(markstring)
    send "."
end

do pork=1 to words(markstring)
    send ""scrln+4";"pork+9"H"clr||bld||red"o"
    send clr"A2H"GRN||lang.154||WHT||mkf" "
    disfilen=word(markstring,pork)
    ddisfilen=upper(disfilen)
    zink=areaofile.ddisfilen
    areapath=npat.zink
    sl "[Flist] "lang.161"["areapath||disfilen"]"lang.162"["fullcpath"]"
    address command 'COPY "'areapath||disfilen'" "'fullcpath'" noreq >NIL:'
    ger=goar.ddisfilen
    mark.ddisfilen.ger="N"
    mkf=mkf-1
end
call alertit(clr||red||bld||lang.163)
send clr""scrln+7";0H"kl
send clr"A2H"GRN||lang.154||WHT||mkf" "
call tenf
call scroll
if smeeegheed=1 then return
call louise_sleeper
mkf=0

comeback=customquest(lang.427)
if upper(comeback)~="Y" then call sdoubleudoublev
else markstring=""

if smeeegheed=1 then return
if bebob<3 then return
return

icefile:
if compress(markstring)="" then do;call alertit(RED||BLD||lang.152);return;end

comeback=customquest(lang.422)
if upper(comeback)~="Y" then return

send clr""scrln+7";0H"
query clr||CYN"("BLD"T"ubld")"lang.164"("BLD"E"ubld")"lang.165"("BLD"X"ubld")"lang.166" "YEL"\\E"
icemode=upper(result)
if icemode~="T"&icemode~="E"&icemode~="X" then icemode="T"
if icemode="E"|icemode="X" then do
    send clr""scrln+7";0H"
    query CYN||lang.167||YEL"\\RAM:"
    fullcpath=result
    if compress(markstring)="" then do
        call redraw
        call scroll
        return
    end
end
send clr""scrln+7";0H"
if compress(fullcpath)=""|fullcpath="RESULT" then return
if ~open(bzoo,tempath'IceIceBaby'bbsline,'w') then do
    alertit(clr||red||bld||lang.168" ["tempath"IceIceBaby"bbsline"] ! :(")
    sl "[Flist] "lang.169" ["tempath"IceIceBaby"bbsline"]!"
    signal boomtown
end
call writeln(bzoo,'failat 99999')
call writeln(bzoo,'stack 32000')
call writeln(bzoo,'echo')
do pork=1 to words(markstring)
    disfilen=word(markstring,pork)
    ddisfilen=upper(disfilen)
    sl "[FList] "lang.170" {"disfilen"}"
    zink=areaofile.ddisfilen
    areapath=npat.zink
    sl "[FList] "lang.170" ["areapath||disfilen"]"lang.162"["fullcpath"]"
    call writeln(bzoo,'echo "H"')
    if icemode="X" then call writeln(bzoo,'icearc -xc "'areapath||disfilen'" "'fullcpath'"')
    if icemode="E" then call writeln(bzoo,'icearc -x "'areapath||disfilen'" "'fullcpath'"')
    if icemode="T" then call writeln(bzoo,'icearc -t "'areapath||disfilen'" "'fullcpath'"')
    ger=goar.ddisfilen
    mark.ddisfilen.ger="N"
    mkf=mkf-1
end
call writeln(bzoo,'endcli')
call close(bzoo)
cls
address command 'NewShell FIFO:ddshell'id'/rwkecs FROM "'tempath'IceIceBaby'bbsline'"'
address command binpath'TrShell -c -d -e -f -n'bbsline' -fddshell'id
address command 'Delete "'tempath'IceIceBaby'bbsline'" >NIL:'
newline
continue
mkf=0

comeback=customquest(lang.427)
if upper(comeback)~="Y" then call sdoubleudoublev
else markstring=""

call redraw
call scroll
return

nukefile:
if compress(markstring)="" then do;call alertit(RED||BLD||lang.152);return;end

comeback=customquest(lang.423)
if upper(comeback)~="Y" then return

do pork=1 to words(markstring)
    disfilen=word(markstring,pork)
    ddisfilen=upper(disfilen)
    zink=areaofile.ddisfilen
    areapath=npat.zink
    send clr""scrln+7";0H"
    nast=1
    sl "[FList] "lang.171" {"disfilen"}..."
    query clr||cyn||bld||disfilen": "lang.172" "yel"\\N"
    if upper(result)="Y" then do
        send clr""scrln+7";0H"
        prompt 2 'NORMAL' '"'clr||bld||cyn||lang.173' 'clr'"'
        nast=result
        if datatype(nast)~="NUM" then nast=1
    end
    sl "[FList] "lang.174" "nast
    if ~open(nukename,areapath||disfilen'.desc','r') then do
        call alertit(RED||BLD||lang.175)
        sl "[FList] "lang.176
        iterate
    end
    eman=readln(nukename)
    call close(nukename)
    if ~open(in,usrpath||eman,'r') then do
        call alertit(RED||BLD||lang.177)
        sl "[FList] "lang.178
        iterate
    end
    do i=1 to 45
        usrdat.i=readln(in)
    end
    call close(in)
    flrem=1*nast
    usrdat.14=compress(usrdat.14)-flrem
    sizeofile=word(statef(areapath||ddisfilen),2)
    byrem=sizeofile*nast
    gigar=byrem/1024
    if pos('.',gigar)>0 then gigar=left(gigar,pos('.',gigar)-1)
    usrdat.13=compress(usrdat.13)-gigar
    call open(out,usrpath||eman,'w')
    do i=1 to 45
        call writeln(out,usrdat.i)
    end
    call close(out)
    ger=goar.ddisfilen
    mark.ddisfilen.ger="N"
    mkf=mkf-1
    call alertit(RED||BLD||flrem" "lang.179" "byrem" "lang.180" "caseconvert(eman))
    send clr""scrln+7";0H"grn||bld||lang.181
    call open(in,cfgpath'FList.NukeReport','r')
    call open(tgout,'ram:Nuke.Txt','w')
    do until eof(in)
        data=readln(in)
        do until hell=0
            hell=checkmenoo()
        end
        if ~eof(in) then call writeln(tgout,data)
    end
    call close(in)
    hell=1
    call alertit(RED||BLD||disfilen": "lang.182)
    textedit
    choc=result
    call redraw
    call scroll
    if choc="###ABORTED" then call writeln(tgout,lang.183)
    else do
        craydead='T:Editor'
        if bbsline>0 then roncr='_'bbsline'.Temp'
        else roncr='.Temp'
        call open(tgin,craydead||roncr,'r')
        do until eof(tgin)
            data=readln(tgin)
            if eof(tgin) then leave
            do until hell=0
                hell=checkmenoo()
            end
            call writeln(tgout,data)
        end
        call close(tgin)
    end
    call close(tgout)
    send clr""scrln+7";0H"grn||bld||lang.184
    call trapghost('"'tgmailpath'" "ram:nuke.txt" "FList Nuke Server" "'caseconvert(eman)'" "FList Nuke Server - 'lang.185'"')
    call alertit(RED||BLD||disfilen": "lang.186)
    sl "[FList] {"disfilen"} "lang.187
end
mkf=0

comeback=customquest(lang.427)
if upper(comeback)~="Y" then call sdoubleudoublev
else markstring=""

return

checkmenoo:
pip=pos('%f',data)
if pip>0 then do
    data=delstr(data,pip,2)
    data=insert(disfilen,data,pip-1,length(disfilen),)
end
pip=pos('%s',data)
if pip>0 then do
    data=delstr(data,pip,2)
    data=insert(sizeofile,data,pip-1,length(sizeofile),)
end
pip=pos('%D',data)
if pip>0 then do
    data=delstr(data,pip,2)
    monk=translate(descofile.ddisfilen,d2c(10),'º')
    data=insert(monk,data,pip-1,length(monk),)
end
pip=pos('%u',data)
if pip>0 then do
    data=delstr(data,pip,2)
    data=insert(username,data,pip-1,length(username),)
end
pip=pos('%F',data)
if pip>0 then do
    data=delstr(data,pip,2)
    data=insert(flrem,data,pip-1,length(flrem),)
end
pip=pos('%B',data)
if pip>0 then do
    data=delstr(data,pip,2)
    data=insert(byrem,data,pip-1,length(byrem),)
end
pip=pos('%x',data)
if pip>0 then do
    data=delstr(data,pip,2)
    data=insert(nast,data,pip-1,length(nast),)
end
return(pip)

editdesc:
print clr""scrln+7";0H"YEL||BLD||lang.188" -["CYN||WHT"M/Return"CYN||lang.162||WHT||lang.189||CYN", "WHT"Q/Esc"CYN||lang.162||WHT||lang.190||CYN", "WHT"8+2/Cursors"CYN||lang.162||WHT||lang.191||YEL"]-"clr
call tenf
if smeeegheed=1 then return
call louise_sleeper
do forever
    if ~carrier then signal boomtown
    raw=(start+row)-3
    tip=upper(word(currfname.raw,1))
    send BBLU||BLD||WHT
    if mark.tip.goarea="Y" then send BRED||CYN||BLD
    send ''row'HC'left(substr(currfname.raw,40,length(currfname.raw)-39),40)
    bufferflush;gc
    markopt=upper(result)
    if c2d(markopt)=13 then markopt="M"
    if markopt='1B'x then markopt="Q"
    If markopt = '9b'x | markopt='5B'x then Do
        maygetchar ; Tmp = result
        If Tmp = 'A' then markopt='8'
        If Tmp = 'B' then markopt='2'
        If Tmp = 'C'&pageno<pages then do;pageno=pageno+1;start=start+scrln;call scroll;signal editdesc;end
        If Tmp = 'D' then if START>1 then do;if start-scrln<1 then start=scrln+1;pageno=pageno-1;start=start-scrln;call scroll;signal editdesc;end
    End
    if markopt="2" then do;replin=downer();if replin=1 then signal editdesc;end
    shutupbeavis=0
    if markopt="8" then call uppa
    if markopt="M" then do
        whoupped=""
        if useraccess>=sysopdesctaxx then whoupped=upper(username)
        if open(findwho,areapath||word(currfname.raw,1)'.Desc','R')&userAccess<=(sysopdesctaxx) then do
            whoupped=upper(readln(findwho))
            Call Close(findwho)
        end
        if whoupped~=upper(username) then do
            call alertit(clr||RED||BLD||lang.192)
            call restip
            return
        end
        send ""row"HC"BBLU
        deezco=substr(currfname.raw,40,40,)
        melk=raw+1
        if (upper(strip(deezco,'T'))~="FILE_ID.DIZ DESCRIPTION")|(upper(strip(deezco,'T'))="FILE_ID.DIZ DESCRIPTION"&left(currfname.melk,1)~="\") then do
            query "\\"strip(deezco,'T')
            newdesc=result
            if newdesc=upper(result) then newdesc="[FList] "lang.193
            sl "[FList] "lang.194" "word(currfname.raw,1)||lang.195" ["strip(substr(currfname.raw,40,40,),'T')"]"lang.162"["newdesc"]"
            currfname.raw=left(currfname.raw,39)||newdesc
        end
        else do
            send ""row"H"clr||left(ansify(raw),93,' ')
            do melk=raw+1 to bebob-1
                if left(currfname.melk,1)~="\" then leave
                if (melk-start+3)=(scrln+3) then do;pageno=pageno+1;start=start+scrln;call scroll;end
                send ""melk-start+3"HC"clr||yel||bld||BBLU
                deezco=substr(currfname.melk,35,45,)
                query "\\"strip(deezco,'T')
                newdesc=result
                if upper(newdesc)="RESULT" then newdesc=""
                send ""melk-start+3"HC"clr||col_desc||bld||newdesc
                if newdesc=upper(result) then newdesc="[FList] "lang.193
                sl "[FList] DIZ "lang.194" "word(currfname.raw,1)||lang.196||melk" "lang.197" ["strip(substr(currfname.melk,35,45,),'T')"]"lang.162"["newdesc"]"
                currfname.melk=left(currfname.melk,34)||newdesc
            end
            call louise_sleeper
        end
        call spinwrite
        send clr"H"
    end
    if markopt="Q" then do
        print ""scrln+7";0H"clr||kl
        send clr"H"
        call restip
        return
    end
end
send clr"H"
call restip
signal editdesc

exefile:
print clr""scrln+7";0H"YEL||BLD||lang.198" -["CYN||WHT"M/Return"CYN||lang.162||WHT||lang.189||CYN", "WHT"Q/Esc"CYN||lang.162||WHT||lang.190||CYN", "WHT"8+2/Cursors"CYN||lang.162||WHT||lang.191||YEL"]-"clr
call tenf
if smeeegheed=1 then return
call louise_sleeper
do forever
    if ~carrier then signal boomtown
    raw=(start+row)-3
    send BRED||BLD||WHT
    tip=upper(word(currfname.raw,1))
    if mark.tip.goarea="Y" then send BRED||CYN||BLD
    send ''row'H'left(ansify(raw),22)
    bufferflush;gc
    markopt=upper(result)
    if c2d(markopt)=13 then markopt="M"
    if markopt='1B'x then markopt="Q"
    If markopt = '9b'x | markopt='5B'x then Do
        maygetchar ; Tmp = result
        If Tmp = 'A' then markopt='8'
        If Tmp = 'B' then markopt='2'
        If Tmp = 'C'&pageno<pages then do;pageno=pageno+1;start=start+scrln;call scroll;signal exefile;end
        If Tmp = 'D' then if START>1 then do;if start-scrln<1 then start=scrln+1;pageno=pageno-1;start=start-scrln;call scroll;signal exefile;end
    End
    if markopt="2" then do;replin=downer();if replin=1 then signal exefile;end
    shutupbeavis=0
    if markopt="8" then call uppa
    if markopt="M" then do
        nareapath=areapath
        newline
        query clr""scrln+7";0H"kl||lang.199" "cyn"\\"precommexe||areapath||word(currfname.raw,1)
        cl=result
        if upper(Cl)="RESULT" then cl='echo "'lang.200'"'
        sl "[FList] "lang.201" ["cl"]..."
        if ~exists(cfgpath"Flist.TRS") then address command 'echo "Failat 9999" >'cfgpath'FList.TRS'
        address command 'Copy 'cfgpath'FList.TRS "'tempath'FList.TRS'bbsline'" noreq'
        call open(trs,tempath'flist.trs'bbsline,'a')
        call writeln(trs,cl)
        call writeln(trs,'endcli')
        call close(trs)
        id=time(s)
        cls
        address command 'NewShell FIFO:trshell'id'/rwkecs FROM "'tempath'Flist.TRS'bbsline'"'
        address command binpath'TrShell -c -d -e -f -n'bbsline' -ftrshell'id
        newline
        continue
        address command 'Delete "'tempath'FList.TRS'bbsline'" >NIL:'
        print "A"kl
        send clr"H"
        call redraw
        call scroll
    end
    if markopt="Q" then do
        print ""scrln+7";0H"clr||kl
        send clr"H"
        call restip
        return
    end
end
send clr"H"
call restip
signal exefile

mark:
if tailmark~=1 then tailmark=0
print clr""scrln+7";0H"YEL||BLD||lang.202" -["CYN||WHT"M/Ret"CYN" - "WHT||lang.203||CYN", "WHT"Q/Esc"CYN" - "WHT||lang.190||CYN", "WHT"8+2/Cursors"CYN" - "WHT||lang.204||CYN", "WHT"T"CYN" - "WHT||lang.205||YEL"]-"clr
call tenf
if smeeegheed=1 then return
call louise_sleeper
do forever
    if ~carrier then signal boomtown
    raw=(start+row)-3
    send BBLU||BLD||WHT
    tip=upper(word(currfname.raw,1))
    if tailmark=1 then do
        if (raw=(start+scrln-1)&disraw=start)|raw<tailstart then do
            replin=downer()
            tip=upper(word(currfname.raw,1))
            if replin=1 then signal mark
            if mark.tip.goarea="Y" then send clr||BLD||RED""row"H"left(ansify(raw),93)
            else send ''row'H'left(ansify(raw),93)||wht||bld||bblu
        end
        else disraw=raw
    end
    if mark.tip.goarea="Y" then do
        send BBLU||RED||BLD''row'H'left(ansify(raw),21)
        zink=areaofile.tip
        if exists(npat.zink||word(currfname.raw,1)) then do
            Call Open(In,npat.zink||word(currfname.raw,1),'R')
            folisize=seek(In,0,'E')
            Call Close(In)
            prevmarx=0
            if fpmopt="ON" then do
                if ~exists(fpmpath||word(currfname.raw,1)'.fpm') then prevmarx=0
                else do
                    Call Open(In,fpmpath||word(currfname.raw,1)'.fpm','R')
                    prevmarx=readln(in)
                    Call close(in)
                end
                send left(''row'HC 'YEL||lang.206' 'GRN||right(prevmarx,5,'0')||YEL' 'lang.207' 'GRN||word(dltime(folisize),1)' 'lang.103' 'word(dltime(folisize),2)' 'lang.104,85)
            end
            else send left(''row'HC 'YEL||lang.207' 'GRN||word(dltime(folisize),1)' 'lang.92' 'word(dltime(folisize),2)' 'lang.93,75)
        end
    end
    else send ''row'H'left(ansify(raw),21)
    if tailmark=1 then do
        if raw~=tailstart then send clr||bld||grn""row"HC|"clr
        else do
            if mark.tip.goarea="Y" then send clr||bld||yel""row"HC^"bblu||wht
            else send clr||bld||yel""row"HC^"clr
        end
    end
    bufferflush;gc
    markopt=upper(result)
    if c2d(markopt)=13 then markopt="M"
    if markopt='1B'x then markopt="Q"
    If markopt = '9b'x | markopt='5B'x then Do
        maygetchar ; Tmp = result
        If Tmp = 'A' then markopt='8'
        If Tmp = 'B' then markopt='2'
        If Tmp = 'C'&pageno<pages then do;pageno=pageno+1;start=start+scrln;call scroll;signal mark;end
        If Tmp = 'D' then if START>1 then do;if start-scrln<1 then start=scrln+1;pageno=pageno-1;start=start-scrln;call scroll;signal mark;end
    End
    if markopt="2" then do
        replin=downer()
        if replin=1&tailmark=0 then signal mark
    end
    shutupbeavis=0
    if markopt="8" then call uppa
    if markopt="."&tailmark=0 then do
        if mark.tip.goarea="Y" then send clr||BLD||RED""row"H"left(ansify(raw),93)
        else send clr||wht''row'H'left(ansify(raw),93)||clr
        redrow=((scrln%2)+3)
        dedrow=(start+redrow)-3
        if left(currfname.dedrow,1)~="\" then row=redrow
    end
    if markopt="T"&tailmark=0 then do
        tailmark=1
        tailstart=raw
        disraw=raw
        send clr||bld||yel""row"HC^"clr
    end
    else if markopt="T"&tailmark=1 then do
        call endtail
    end
    if markopt="M" then call submark(raw)
    if markopt="Q" then do
        if tailmark=1 then call endtail
        print ""scrln+7";0H"clr||kl
        send clr"H"
        call restip
        return
    end
end
send clr"H"
call restip
signal mark

endtail:
tailmark=0
send clr||bld||yel""row"HCv"clr
sugardaddy=raw
do busyevil=tailstart to sugardaddy
    if left(currfname.busyevil,1)="\" then busyevil=busyevil+1
    if left(currfname.busyevil,1)="\" then iterate
    row=((busyevil-start)+3)
    call submark(busyevil)
    tip=upper(word(currfname.busyevil,1))
    if mark.tip.goarea="Y" then send clr||BLD||RED""row"H"left(ansify(raw),93)
    else send ''row'H'left(ansify(raw),93)
end
return

arcmark:
if compress(markstring)="" then do;call alertit(RED||BLD||lang.152);return;end

comeback=customquest(lang.424)
if upper(comeback)~="Y" then return

send clr""scrln+7";0H"
do pork=1 to words(markstring)
    disfilen=word(markstring,pork)
    ddisfilen=upper(disfilen)
    sl "[FList] "lang.208" {"disfilen"}"
    zink=areaofile.ddisfilen
    areapath=npat.zink
    sl "[FList] "lang.209" ["areapath||disfilen"]"
    address command 'icearc -l "'areapath||disfilen'" >"'tempath'FListArc.Tmp'bbsline'"'
    if open(in,tempath'flistarc.tmp'bbsline,'R') then do
        send clr"H"
        bathroom=0
        do until eof(in)
            If ~carrier then signal boomtown
            do lcareful=1 to scrln-1
                data=readln(in)
                bathroom=bathroom+1
                if bathroom>13 then print kl||left(data,78)
                else print kl||data
            end
            print kl"A"
            if eof(in) then newline
            dork=morepro()
            if dork=0 then leave
            send clr"H"
        end
        buggeroff=0
        address command 'DELETE "'tempath'FLIST.TMP'bbsline'" >NIL:'
        Call Close(in)
    end
    ger=goar.ddisfilen
    mark.ddisfilen.ger="N"
    mkf=mkf-1
end
mkf=0

comeback=customquest(lang.427)
if upper(comeback)~="Y" then call sdoubleudoublev
else markstring=""

call scroll
call redraw(1)
return

mormark:
print clr""scrln+7";0H"YEL||BLD||lang.210" -["CYN||WHT"M/Return"CYN||lang.162||WHT||lang.189||CYN", "WHT"Q/Esc"CYN||lang.162||WHT||lang.190||CYN", "WHT"8+2/Cursors"CYN||lang.162||WHT||lang.191||YEL"]-"clr
call tenf
if smeeegheed=1 then return
call louise_sleeper
do forever
    if ~carrier then signal boomtown
    raw=(start+row)-3
    send BBLU||BLD||WHT
    tip=upper(word(currfname.raw,1))
    if mark.tip.goarea="Y" then send BBLU||RED||BLD
    send ''row'H'left(ansify(raw),22)
    bufferflush;gc
    markopt=upper(result)
    if c2d(markopt)=13 then markopt="M"
    if markopt='1B'x then markopt="Q"
    If markopt = '9b'x | markopt='5B'x then Do
        maygetchar ; Tmp = result
        If Tmp = 'A' then markopt='8'
        If Tmp = 'B' then markopt='2'
        If Tmp = 'C'&pageno<pages then do;pageno=pageno+1;start=start+scrln;call scroll;signal mormark;end
        If Tmp = 'D' then if START>1 then do;if start-scrln<1 then start=scrln+1;pageno=pageno-1;start=start-scrln;call scroll;signal mormark;end
    End
    if markopt="2" then do;replin=downer();if replin=1 then signal mormark;end
    shutupbeavis=0
    if markopt="8" then call uppa
    if markopt="M" then do
        nodesc=1
        uld="<Unknown>"
        call clearsarea
        if left(currfname.raw,1)="\" then break
        if exists(areapath||word(currfname.raw,1)".Desc") then do;if Open(in,areapath||word(currfname.raw,1)".Desc",'R') then do;uld=readln(in);nodesc=0;end;end
        send clr"H"
        print kl"A"
        newline;newline;newline
        print YEL||BLD||lang.211" : "CYN||caseconvert(uld)
        newline
        sl "[FList] "lang.212" ["word(currfname.raw,1)"]"
        print YEL||lang.213": "CYN||word(currfname.raw,1)
        print YEL||lang.214": "CYN||left(substr(currfname.raw,40),40)
        mon=substr(substr(currfname.raw,33,6,),3,2,)
        mont=geniushaha.mon
        print YEL||lang.215": "CYN||substr(currfname.raw,37,2,)'-'mont'-'substr(currfname.raw,33,2,)
        newline
        if Open(ish,areapath||word(currfname.raw,1),'R') then do
            fsize=seek(ish,0,'E')
            Call Close(ish)
        end
        else fsize=0
        newline
        print BLD||YEL||lang.216": "CYN||fsize" "lang.91
        print BLD||YEL||lang.217": "CYN||bpsrate||clr||YEL" - "lang.218": "CYN||BLD||word(dltime(fsize),1)||clr||YEL" "lang.92" "CYN||BLD||word(dltime(fsize),2)||clr||YEL" "lang.93
        newline
        do 3;print kl;end
        print kl"A"
        continue
        call clearsarea
        if nodesc=0 then do
            print "H"
            do until eof(in)
                If ~carrier then signal boomtown
                defter=0
                do lcareful=1 to scrln-1
                    print kl
                    data=readln(in)
                    if eof(in)=1 then leave
                    defter=2
                    print "A"CYN||YEL||left(data,78)
                end
                print kl"A"
                if defter=2 then sheeko=MorePro()
                else do
                    print red||bld"A"lang.219
                    continue
                    leave
                end
                call clearsarea
                if sheeko=0 then leave
                send clr"H"
            end
            buggeroff=0
        end
        Call Close(in)
        send "H"
        call scroll
        send BBLU||BLD||WHT
        send ''row'H'left(ansify(raw),22)
    end
    if markopt="Q" then do
        print ""scrln+7";0H"clr||kl
        send clr"H"
        call restip
        return
    end
end
send clr"H"
call scroll
signal mormark

rtxtphile:
print clr""scrln+7";0H"YEL||BLD||lang.220" -["CYN||WHT"M/Return"CYN||lang.162||WHT||lang.189||CYN", "WHT"Q/Esc"CYN||lang.162||WHT||lang.190||CYN", "WHT"8+2/Cursors"CYN||lang.162||WHT||lang.191||YEL"]-"clr
call tenf
if smeeegheed=1 then return
call louise_sleeper
do forever
    if ~carrier then signal boomtown
    raw=(start+row)-3
    send BBLU||BLD||WHT
    tip=upper(word(currfname.raw,1))
    if mark.tip.goarea="Y" then send BBLU||RED||BLD
    send ''row'H'left(ansify(raw),22)
    bufferflush;gc
    markopt=upper(result)
    if c2d(markopt)=13 then markopt="M"
    if markopt='1B'x then markopt="Q"
    If markopt = '9b'x | markopt='5B'x then Do
        maygetchar ; Tmp = result
        If Tmp = 'A' then markopt='8'
        If Tmp = 'B' then markopt='2'
        If Tmp = 'C'&pageno<pages then do;pageno=pageno+1;start=start+scrln;call scroll;signal rtxtphile;end
        If Tmp = 'D' then if START>1 then do;if start-scrln<1 then start=scrln+1;pageno=pageno-1;start=start-scrln;call scroll;signal rtxtphile;end
    End
    if markopt="2" then do;replin=downer();if replin=1 then signal rtxtphile;end
    shutupbeavis=0
    if markopt="8" then call uppa
    if markopt="M" then do
        typ=""
        nareapath=areapath||word(currfname.raw,1)
        donotdisturb=0
        if left(currfname.raw,1)="\" then break
        print "H"
        if ~exists(compress(nareapath)) then call alertit(clr||red||bld"File does not exist, file is Offline - Alert SysOp")
        if ~exists(compress(nareapath)) then break
        send clr""scrln+7";0H"kl||WHT||lang.221
        address command 'about "'compress(nareapath)'" >'tempath'gh'bbsline
        sl "[FList] "lang.222" ["compress(nareapath)"]"
        call open(in,tempath'gh'bbsline,'r')
        dummy=readln(in)
        call clearsarea
        do 9;print CYN||BLD||readln(in)||clr;end
        typ=readln(in)
        send bld||cyn||left(typ,9)||clr
        print bld||yel||right(typ,length(typ)-9)||clr
        newline
        continue
        if pos('ASCII',upper(typ))=0 then do
            call alertit(BLD||RED||lang.223||clr)
            sl "[FList] "lang.224
            Call Close(in)
            call scroll
            return
        end
        Call Close(in)
        send clr;cls
        sl "[FList] "lang.225
        sendfile compress(nareapath)
        newline
        continue
        call redraw
        send "H"
        call scroll
        send BBLU||BLD||WHT
        send ''row'H'left(ansify(raw),22)
    end
    if markopt="Q" then do
        print ""scrln+7";0H"clr||kl
        send clr"H"
        call restip
        return
    end
end
if typ~-"" then call redraw
send clr"H"
call scroll
signal rtxtphile


syntax:
golf=sigl
code=rc
newline
print ""lang.226""
newline
print ""lang.227" "golf
print ""lang.228" "code
print ""lang.229" "errortext(code)
newline
sl clr||bld"[FList] "lang.230" #"golf", "lang.231" "code", "lang.232" ["errortext(code)"] *** "
print " "lang.233" "
newline
send ""lang.234" "
call open(errout,'ram:error.txt','w')
call writeln(errout,'FList - (c) S.Gillibrand 1997 - Digital Design Production'crvar||crvar'An error has occured internal to FList, this error was triggered while'crvar||username' was online. It is suggested you report this error to 'crvar'Stuart Gillibrand of Digital Design immediatley. The following methods of contact are available:'crvar||crvar' * EMail: [e-mail]'crvar' * WWW: http://www.digitald.demon.co.uk'crvar' * Fidonet: 2:250/602.0'crvar' * Snail: Digital Design WHQ,'crvar'          8, Thornton Drive,'crvar'          Farington Moss,'crvar'          Leyland,'crvar'          Preston,'crvar'          Lancashire,'crvar'          PR5 3QH.'crvar'          ENGLAND.'crvar||crvar'An immediate response will follow and any bugs/improvements fixed/made due')
call writeln(errout,'to your information will result in a small dedication to yourself.'crvar||crvar'Please attatch the following information to your message:-'crvar||crvar' Line [#'golf']'crvar' Code ['code']'crvar' Error ['errortext(code)']'crvar' Version ['ver$']')
call writeln(errout,' Date ['date()']'crvar' Time ['time()']'crvar||crvar' BBS Name: 'bbsname||crvar' SysOp: 'bbsysopname||crvar||crvar'---'crvar||crvar'Thank You In Advance.'crvar)
call close(errout)
call trapghost('"'tgmailpath'" "ram:error.txt" "'lang.235'" "'caseconvert(bbsysopname)'" "'lang.235' - 'lang.236'"')
address command 'delete "ram:error.txt" >NIL:'
print "Complete"
newline
continue
signal boomtown

maffair:
cls
newline
print RED||BLD||lang.237||clr
return

redraw:
arg parad
call open(sneakyout,tempath'koochi'bbsline,'w')
pages=bebob/scrln
borrow=pos('.',pages)
if borrow>0 then pages=left(pages,borrow-1)+1
call writech(sneakyout,clr)
if parad=1 then call writech(sneakyout,"H")
else call writech(sneakyout,"H")
call writeln(sneakyout,kl||kon||BLD||YEL||tbpliner||crvar||kon"A2H"BLD||YEL||lang.154||WHT||mkf||crvar||kl||kon||col_bar||bld||YEL"["WHT||left(lang.238,1)||ubld||substr(lang.238,2)||bld||YEL"] ["WHT||left(lang.239,1)||ubld||substr(lang.239,2)||bld||YEL"] ["WHT||left(lang.240,1)||ubld||substr(lang.240,2)||bld||YEL"] ["WHT||left(lang.241,1)||ubld||substr(lang.241,2)||bld||YEL")"WHT||left(lang.242,1)||ubld||substr(lang.242,2)||bld||YEL"]"kon||crvar||clr||WHT||BLD""scrln+3"H"kl||col_bar"F"ubld"List "bld||left(lang.243,1)||ubld||substr(lang.243,2)" "bld"("blk||lang.244" "showopts||wht")"clr||col_bar||BLK" þ "BLD||col_bar||red"["grn||right(pageno,length(pages),'0')||WHT"/"YEL||pages||red"]                                    "clr||crvar||kl||col_bar"A"76-length(areaname)-6"C"YEL||BLD||lang.245||ubld": "bld||WHT||areaname"  "clr||crvar)

if parad=1 then do
    call writeln(sneakyout,kl)
    call writeln(sneakyout,kl"A")
end
call close(sneakyout)
sendfile tempath'koochi'bbsline
sendfile txtpath"FList_Menu"showopts
address command 'delete "'tempath'koochi'bbsline'" >NIL:'
return

reloadfiles:
parse arg areatwf
if compress(areatwf)=""|upper(areatwf)="AREATWF" then areatwf=goarea
bebob=1
currfname.bebob="\                              "pnk||bld||word(lang.246,1)||ubld||substr(lang.246,length(word(lang.246,1))+1)
call clearsarea
send FSH||BLD||RED""scrln+1"H þú "clr||BLD||YEL||lang.247||RED||FSH" úþ "clr||BLD||CYN": "clr
if areacomm="ON" then do
    gooe=farea
    if gooe>areas then gooe="Ext"
    currfname.2="\"
    currfname.3="\ ú+úþú+úþú+-<*> "centre("#"gooe", "areaname,45)" <*>-+úþú+úþú+ú"
    currfname.4="\"
    bebob=4
end
soastick=bebob+1
Call Open(in,areatwf,'R')
oldsize=seek(in,0,'E')
donotcache=0
err=time('r')
if oldsize=cache.farea.0&forceload~=1&flistcache="ON" then do
    donotcache=1
    send FSH||BLD||RED""scrln+1"H þú "clr||BLD||YEL||lang.248||RED||FSH" úþ "clr||BLD||CYN": "clr
    do cash=soastick to cache.farea.65535
        currfname.cash=cache.farea.cash
    end
    bebob=cache.farea.65535
end
else do
    err=seek(in,0,'B')
    do until eof(in)
        bebob=bebob+1
        currfname.bebob=readln(in)
    end
end
Call Close(in)
print time('e')" seconds..."
pages=bebob/scrln
borrow=pos('.',pages)
if borrow>0 then pages=left(pages,borrow-1)+1
currfname.bebob="\                               "pnk||bld||word(lang.249,1)||ubld||substr(lang.249,length(word(lang.249,1))+1)/*" ["pnk||bld||right(bebob-2,5,'0')||ubld" Entries In This Area]"*/
address command 'Delete "'tempath'RESULTS'bbsline'" >NIL:'
pageno=1
giddy=goarea
start=1
if ((donotcache=0|forceload=1)&flistcache="ON") then do
    send FSH||BLD||RED""scrln"H þú "clr||BLD||YEL||lang.250||RED||FSH" úþ "clr||BLD||CYN": "clr
    err=time('r')
    do necro=soastick to bebob-1
        cache.farea.necro=currfname.necro
    end
    cache.farea.0=oldsize
    cache.farea.65535=bebob
    print time('e')" "lang.93"..."
end
forceload=0
return

sort:

comeback=customquest(lang.425)
if upper(comeback)~="Y" then return

rev=''
query clr||YEL||bld""scrln+7";0H"kl||lang.251" (A-Alpha, R-Reverse, F-Forward, D-Date, S-Size, C-Comment): "CYN
demp=result
if upper(demp)~="R" then result=customquest(lang.252)
if upper(Result)="Y" then rev='r'
if upper(demp)="R" then call sortreverse
if upper(demp)="A" then call sortalpha
if upper(demp)="F" then call sortnormal
if upper(demp)="D" then call sortdate
if upper(demp)="S" then call sortsize
if upper(demp)="C" then call sortcomment
if exists(tempath"files.bbs"bbsline) then do
    forceload=1
    call reloadfiles(tempath"FILES.BBS"bbsline)
    call scroll
    address command 'delete "'tempath'Files.BBS'bbsline'" >NIL:'
end
send ""scrln+7";0H"kl
return

sortreverse:
sl "[FList] "lang.253
send clr""scrln+7";0H"kl""WHT||lang.254
address command "FileSort "goarea" "tempath"files.bbs"bbsline" R >NIL:"
return

sortalpha:
sl "[FList] "lang.255
send clr""scrln+7";0H"kl||bld||WHT||lang.256
address command "FileSort "goarea" "tempath"files.bbs"bbsline" a "rev" >NIL:"
return

sortdate:
sl "[FList] "lang.257
send clr""scrln+7";0H"kl||BLD||WHT||lang.258
address command "FileSort "goarea" "tempath"files.bbs"bbsline" d "rev" >NIL:"
return

sortsize:
sl "[FList] "lang.259
send clr""scrln+7";0H"kl||WHT||BLD||lang.260
address command "FileSort "goarea" "tempath"files.bbs"bbsline" s "rev" >NIL:"
return

sortcomment:
sl "[FList] "lang.261
send clr""scrln+7";0H"kl||bld||WHT||lang.262
address command "FileSort "goarea" "tempath"files.bbs"bbsline" c "rev" >NIL:"
return

sortnormal:
sl "[FList] "lang.263
call reloadfiles
call scroll
return

extdir:
extdir=0
send clr""scrln+7";0H"kl
query YEL||lang.264" "CYN"\\"gopher
xdir=result
if upper(xdir)="RESULT" then do
    send clr""scrln+7";0H"kl
    return
end
if ~exists(xdir) then do
    call alertit(clr||red||bld||lang.265)
    return
end
areaname=lang.266" "xdir
apat.areaname="ExDirServ:"
farea=65535
goarea="ExDirServ:Files.BBS"
sl "[FList] "lang.267" ["xdir"]"
address command 'assign ExDirServ: "'xdir'"'
call checkpath("file:FListExd")
address command 'assign ExDirServ: file:FListExd add'
if right(xdir,1)~=":"&right(xdir,1)~="/" then xdir=xdir'/'
gopher=xdir
send clr""scrln+7";0H"kl||WHT||lang.268
if exists(xdir'Files.bbs') then do
    send clr""scrln+7";0H"kl
    query bld||lang.269" "yel"y"blu"/"yel"N"wht"? "cyn
    if upper(result)="Y" then do
        address command 'copy "'xdir'files.bbs" "file:FlistExd" noreq >NIL:'
        signal wishthing
    end
end
send clr""scrln+7";0H"kl||grn||bld||lang.270||clr
address command 'List "'xdir'" Files Nohead >'tempath'Files.BBS'bbsline
address command 'List "'xdir'" Dirs Nohead >'tempath'FilesDIR.BBS'bbsline
send clr""scrln+7";0H"kl
Call Open(Out,'file:FListExd/Files.BBS','W')
Call Writeln(out,'\')
Call Writeln(out,'\ 'red||bld'External Directory Processed By FList - (c) S.Gillibrand 1997')
Call Writeln(out,'\ 'red||bld||lang.271||xdir)
Call Writeln(out,'\')
xdir="ExDirServ:"

address command 'Copy "'xdir'files.bbs" "'tempath'refudge'bbsline'" noreq >NIL:'

Call Open(In,tempath'FilesDIR.BBS'bbsline,'R')
breg=0
send clr""scrln+7";0H"kl||grn||bld||lang.272||clr
xdate="970413"
do forever
    if ~carrier then signal boomtown
    do until length(strip(xdata,'T'))<61
        xdata=readln(in)
    end
    if left(xdata,1)=":" then do;xcomm=left(right(xdata,length(xdata)-2),40);xdata=readln(in);end
    else xcomm=left(lang.273,40)
    mon=substr(xdate,3,2)
    xdat=right(xdate,2)"-"geniushaha.mon"-"left(xdate,2)
    datout='\'clr||grn||bld||xfile||col_size' 'lang.274' 'col_date||xdat' 'col_desc||xcomm
    if breg=1 then do;Call Writeln(out,datout);end
    if eof(in) then leave
    breg=1
    xfile=left(xdata,23)
    xdate.1=substr(xdata,43,9)
    xdate="970101"
    if datatype(left(xdate.1,2))="NUM" then do
        mon=upper(substr(xdate.1,4,3,))
        xdate=right(xdate.1,2)||geniusahah.mon||left(xdate.1,2)
    end
end
Call Close(in)

Call Open(In,tempath'Files.BBS'bbsline,'R')
breg=0
send clr""scrln+7";0H"kl||grn||bld||lang.275||clr
do forever
    if ~carrier then signal boomtown
    do until length(strip(xdata,'T'))<61
        xdata=readln(in)
    end
    if left(xdata,1)=":" then do;xcomm=left(right(xdata,length(xdata)-2),40);xdata=readln(in);end
    else xcomm=left(lang.276,40)
    datout=xfile||xsize' 'xdate' 'xcomm
    if breg=1 then do;Call Writeln(out,datout);end
    if eof(in) then leave
    breg=1
    xfile=left(xdata,23)
    xdate.1=substr(xdata,43,9)
    xdate="970101"
    if datatype(left(xdate.1,2))="NUM" then do
        mon=upper(substr(xdate.1,4,3,))
        xdate=right(xdate.1,2)||geniusahah.mon||left(xdate.1,2)
    end
    xsize=right(strip(substr(xdata,25,8)),8)
    if compress(upper(xsize))="EMPTY" then xsize=right('0',8)
end
Call Close(in)
Call Close(out)

wishthing:
extdirpath=xdir
areapath=xdir
extdir=1
zeon=zeon+1
farea=zeon
npat.zeon=xdir
send clr""scrln+7";0H"kl
pageno=1
call reloadfiles("file:flistexd/files.bbs")
call redraw(1)
call scroll
return

palprefs:
col.1=substr(red,4,1)
col.2=substr(grn,4,1)
col.3=substr(yel,4,1)
col.4=substr(blu,4,1)
col.5=substr(pnk,4,1)
col.6=substr(cyn,4,1)
col.7=substr(wht,4,1)
call clearsarea
send "H"
sendfile txtpath"FList_Colour.ANSI"
do i=1 to 7
    send ""5+(2*i)";"35+(5*col.i)"H"col.i"mþþþþ"clr
end
send "3H"RED||BLD"->"
ccol=1
do until cpref="V"|cpref="Q"
    If ~carrier then signal boomtown
    bufferflush;gc
    cpref=upper(result)
    if cpref='1B'x then markopt="V"
    If cpref = '9b'x | cpref='5B'x then Do
        maygetchar ; Tmp = result
        If Tmp = 'A' then cpref='A'
        If Tmp = 'B' then cpref='Z'
        If Tmp = 'C' then cpref='='
        If Tmp = 'D' then cpref='-'
    End
    if cpref="8" then cpref="A"
    if cpref="2" then cpref="Z"
    if cpref="4"|cpref="O" then cpref="-"
    if cpref="6"|cpref="P" then cpref="="
    if cpref="R" then do
        col.1=1
        col.2=2
        col.3=3
        col.4=4
        col.5=5
        col.6=6
        col.7=7
        call clearsarea
        send "H"
        sendfile txtpath"FList_Colour.ANSI"
        do i=1 to 7
            send ""5+(2*i)";"35+(5*col.i)"H"col.i"mþþþþ"clr
        end
        send "3H"RED||BLD"->"
        ccol=1
    end
    if cpref="="&col.ccol<7 then do
        col.ccol=col.ccol+1
        send clr""5+(2*ccol)";"35+(5*col.ccol)-5"H"col.ccol"m    "clr
        send ""5+(2*ccol)";"35+(5*col.ccol)"H"col.ccol"mþþþþ"clr
    end
    if cpref="-"&col.ccol>1 then do
        col.ccol=col.ccol-1
        send clr""5+(2*ccol)";"35+(5*col.ccol)+5"H"col.ccol"m    "clr
        send ""5+(2*ccol)";"35+(5*col.ccol)"H"col.ccol"mþþþþ"clr
    end
    if cpref="Z" then do
        send ""5+(2*ccol)";33H"ccol"m"BLD"  "
        ccol=ccol+1
        if ccol=8 then ccol=1
        send ""5+(2*ccol)";33H"ccol"m"BLD"->"clr
    end
    if cpref="A" then do
        send ""5+(2*ccol)";33H"ccol"m"BLD"  "
        ccol=ccol-1
        if ccol=0 then ccol=7
        send ""5+(2*ccol)";33H"ccol"m"BLD"->"clr
    end
end
if cpref~="Q" then do
    red=""col.1"m"
    grn=""col.2"m"
    yel=""col.3"m"
    blu=""col.4"m"
    pnk=""col.5"m"
    cyn=""col.6"m"
    wht=""col.7"m"
    call checkpath(pltpath)
    Call Open(Out,pltpath||username'.PLT','W')
    Call Writeln(out,""col.1"m")
    Call Writeln(out,""col.2"m")
    Call Writeln(out,""col.3"m")
    Call Writeln(out,""col.4"m")
    Call Writeln(out,""col.5"m")
    Call Writeln(out,""col.6"m")
    Call Writeln(out,""col.7"m")
    Call Close(Out)
end
call redraw(1)
call reloadfiles
return

passwrd:
newline
print clr":: ["bld"FList "lang.277||ubld"] ::"
newline
if upper(psw)~="­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­" then do
    prompt 30 'HIDE' '"'clr||red||bld||lang.278||yel': 'bblu||cyn'                              D"'
    if upper(result)~=upper(psw) then do
        sl "[FList] "lang.279
        newline;newline
        print clr||bld||RED||lang.280
        newline
        continue
        call redraw
        call scroll
        return
    end
    newline;newline
end
prompt 30 'HIDE' '"'clr||red||bld||lang.281||yel': 'bblu||cyn'                              D"'
npass=upper(Result)
newline
prompt 30 'HIDE' '"'clr||red||bld||lang.282||yel': 'bblu||cyn'                              D"'
scnd=result
send clr
if upper(scnd)~=npass&upper(scnd)~="RESULT" then do
    newline;newline
    sl "[FList] "lang.283
    print clr||bld||RED||lang.284
    newline
    continue
    call redraw
    call scroll
    return
end
sl "[FList] "lang.285" ["npass"]"
call checkpath(pswpath)
if upper(scnd)="RESULT" then do
    address command 'DELETE "'pswpath||username'.PSW" >NIL:'
    newline;newline
    print clr||bld||GRN||lang.286
    psw="­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­"
    newline
    continue
    call redraw
    call scroll
    return
end
Call Open(Out,pswpath||username'.PSW','W');Call Close(out)
address command 'FileNote "'pswpath||username'.PSW" "'npass'" >NIL:'
newline;newline
psw=npass
print clr||bld||grn||lang.287
newline
continue
call redraw
call scroll
return

remark:
oldms=markstring
oldmf=mkf

retr:
newline
print clr||CYN"þ"bld" "lang.288||clr
call checkpath(sdlpath)
if ~exists(sdlpath||username'.SDL') then do
    newline
    print RED||lang.289
    newline
    continue
    return
end
Call Open(LMIn,sdlpath||username'.SDL','R')
markstring=' '
mkf=1
send BLD
Do Until Eof(LMIn)
    If ~carrier then signal boomtown
    extpath=readln(lmin)
    fjr=word(extpath,2)
    areaofile.fjr=word(extpath,1)
    descofile.fjr=translate(word(extpath,3),' ','­')
    goar.fjr=word(extpath,5)
    if fjr~=""&datatype(areaofile.fjr)="NUM"&pos('­',extpath)>0 then do
        markstring=markstring||FJR' '
        mkf=mkf+1
    end
end
mkf=mkf-1
Call Close(lmin)

resel:
cls
print kl||kon||tbpliner
newline
call open(pagebreak,tempath'Page_Prompt'bbsline,'w')
call writech(pagebreak,clr)
do i=1 to words(markstring)
    if ~carrier then signal boomtown
    filenamenzie=upper(word(markstring,i))
    discojak=descofile.filenamenzie
    call writeln(pagebreak,YEL||right(i,3,'0')||CYN" "left(filenamenzie,23)" "translate(translate(discojak,' ','­'),d2c(10),'º'))
end
call close(pagebreak)
sendfile tempath"Page_Prompt"bbsline
address command 'delete "'tempath'Page_Prompt'bbsline'" >NIL:'
newline
do until smfopt="R"
    if ~carrier then exit
    prompt 1 'NORMAL' '"'bld||RED'R'YEL']'CYN||lang.290', 'RED'D'YEL']'CYN||lang.291', 'RED'Q'YEL']'CYN||lang.292', 'RED'C'YEL']'CYN||lang.293', 'RED'S'YEL']'CYN||lang.294', 'RED'V'YEL']'CYN||lang.295' 'WHT'> "'
    smfopt=upper(Result)
    select
        when smfopt="Q" then do
            markstring=oldms
            mkf=oldmf
            return
        end
        when smfopt="C" then do
            newline
            prompt 20 'NORMAL' '"'YEL||lang.296' 'CYN'"'
            ftc=upper(Result)
            if left(ftc,1)="/" then do
                parse var ftc "/"strt"-"fnto
                if datatype(strt)~="NUM"|datatype(fnto)~="NUM"|strt<1|fnto>words(markstring) then do
                    newline;newline
                    print red||bld||lang.297||clr
                    newline
                    continue
                    signal resel
                end
                nms=markstring
                do ftc=strt to fnto
                    if ~carrier then signal boomtown
                    ftd=word(markstring,ftc)
                    mn8=pos(ftd,upper(nms))
                    nms=delstr(nms,mn8,length(ftd))
                end
                markstring=nms
                newline
                signal resel
            end
            if pos(ftc,upper(markstring))=0&datatype(ftc)~="NUM" then do
                newline
                print RED||lang.298
                address command "Wait "defwait" >NIL:"
                newline
                send clr
                newline
                newline
                signal resel
            end
            if datatype(ftc)="NUM" then if ftc<=words(markstring) then ftc=word(markstring,ftc);else signal resel
            mn8=pos(ftc,upper(markstring))
            markstring=delstr(markstring,mn8,length(ftc))
            newline
            newline
            signal resel
        end
        when smfopt="D" then do
            newline;newline
            queryn YEL||lang.299
            if upper(Result)~="Y" then signal resel
            call checkpath(sdlpath)
            address command 'Delete "'sdlpath||username'.SDL" >NIL:'
            newline
            print RED||lang.300
            address command "wait "defwait" >NIL:"
            sl "[FList] "lang.301
            markstring=oldms
            mkf=oldmf
            return
        end
        when compress(markstring)="" then do
            newline
            markstring=oldms
            mkf=oldmf
            print RED||lang.302
            newline
            continue
            return
        end
        when smfopt="S" then do
            call checkpath(sdlpath)
            if ~exists(sdlpath||username'.sdl') then call open(netset,sdlpath||username'.sdl','w')
            else do
                newline;newline
                queryn lang.303
                if upper(result)="Y" then call open(netset,sdlpath||username'.sdl','a')
                else call open(netset,sdlpath||username'.sdl','w')
            end
            newline;newline
            print grn||bld||lang.304
            do tdial=1 to words(markstring)
                flnm=word(markstring,tdial)
                call writeln(netset,areaofile.flnm' 'flnm' 'translate(translate(descofile.flnm,'­',' '),'º',d2c(10))' 'goar.flnm)
            end
            call close(netset)
            print lang.305
            newline
            continue
        end
        when smfopt="V" then signal resel
        otherwise nop
    end
    newline
end
newline
signal markemate

dltime:
parse arg fsize
if datatype(fsize)="NUM" then fsizeconv=fsize/1000
else do
    newline;newline
    print RED||lang.306
    newline
    fsize=0
end
poddy=pos('.',fsize/1000)
fsizeconv=fsize
lpart=00
if poddy>0 then fsizeconv=left(fsize/1000,poddy-1)
ttd=(fsize/(bpsrate/8))/60
seconds='00'
lpart=ttd
pod=pos('.',ttd)
if pod>0 then do
    rpart='0.'right(ttd,length(ttd)-pod)
    lpart=left(ttd,pod-1)
    if rpart<0.0166666 then seconds='01'
    else seconds=left((rpart/0.0166666),2)
    if right(Seconds,1)="." then seconds='0'left(seconds,1)
    if seconds>60 then do
        lpart=lpart+1
        seconds=seconds-60
    end
end
if length(lpart)=1 then lpart='0'lpart
return(lpart" "seconds)

morepro:
if buggeroff="BUGGEROFF" then buggeroff=0
if buggeroff=1 then return(4)
send CYN||BLD||lang.307||GRN'? 'YEL'Y'BLU'/'YEL'n'BLU'/'YEL'c'
bufferflush;gc
ming=upper(Result)
select
    when ming="N" then return(0)
    when ming="Y" then return(1)
    when ming="C" then do
        buggeroff=1
        return(2)
    end
    otherwise return(1)
end
return(3)

downer:
tip=upper(word(currfname.raw,1))
if mark.tip.goarea="Y" then send clr||RED||BLD
else send clr||col_file
if tailmark~=1 then send ''row'H'left(ansify(raw),93)
if row>(scrln+1) then return(1)
oldrow=row
row=row+1
raw=(start+row)-3
if left(Currfname.raw,1)="\" then do
    do until left(currfname.raw,1)~="\"|row=2
        if ~carrier then exit
        raw=(start+row)-3
        row=row+1
    end
    row=row-1
    if row>scrln+2 then do
        if tailmark=1 then row=oldrow
        return(1)
    end
end

return(0)

uppa:
if row<4 then do
    tip=upper(word(currfname.raw,1))
    if mark.tip.goarea="Y" then send clr||RED||BLD
    else send clr||col_file
    send ''row'H'left(ansify(raw),93)
    shutupbeavis=1
    row=scrln+2
    raw=(start+row)-3
    if left(Currfname.raw,1)="\" then do
        do until left(currfname.raw,1)~="\"|row=3
            if ~carrier then signal boomtown
            raw=(start+row)-3
            row=row-1
        end
        row=row+1
    end
    row=row+1
end
if shutupbeavis=0 then do
    tip=upper(word(currfname.raw,1))
    if mark.tip.goarea="Y" then send clr||RED||BLD
    else send clr||col_file
    send ''row'H'left(ansify(raw),93)
end
oldrow=row
row=row-1
raw=(start+row)-3
if left(currfname.raw,1)="\" then do
    do until left(currfname.raw,1)~="\"|row=1
        if ~carrier then signal boomtown
        raw=(start+row)-3
        row=row-1
    end
    if row<2&tailmark=0 then do
        row=scrln+2
        raw=(start+row)-3
        if left(Currfname.raw,1)="\" then do
            do until left(currfname.raw,1)~="\"|row=1
                if ~carrier then exit
                raw=(start+row)-3
                row=row-1
            end
            row=row+1
        end
    end
    else row=row+1
end
return

qt:
/**** QT.rexx *****************************************************************
*
*    $VER: QT 2.01 (6.4.95)
*
*    Copyright © 1991-95 Klaus A Seistrup @ Magnetic Ink <[e-mail]>
*
*******************************************************************************/

/* Respect to you Klaus from Stuart G :) */

Hr.0    = lang.308' '
Hr.1    = lang.309' '
Hr.2    = lang.310' '
Hr.3    = lang.311' '
Hr.4    = lang.312' '
Hr.5    = lang.313' '
Hr.6    = lang.314' '
Hr.7    = lang.315' '
Hr.8    = lang.316' '
Hr.9    = lang.317' '
Hr.10 = lang.318' '
Hr.11 = lang.319' '

Mn.0    = ''
Mn.1    = lang.320' '
Mn.2    = lang.321' '
Mn.3    = lang.322' '
Mn.4    = lang.323' '
Mn.5    = lang.324' '
Mn.6    = lang.325' '

Ny.0    = lang.326' '
Ny.1    = lang.327' '
Ny.2    = ''
Ny.3    = lang.328' '
Ny.4    = lang.329' '

Up.0    = lang.330' '
Up.1    = ''
Up.2    = lang.331' '

t        = (TIME('S') + 1650) % 60

Hrs    = (t % 60) // 12
Min    = t // 60
Alm    = Min // 5
Div    = (Min % 5) - 5
Upt    = SIGN(Div) + 1

IF Div < 0 THEN Div = -Div
OClock = lang.332" " || Ny.Alm || Mn.Div || Up.Upt || Hr.Hrs
IF Div == 0 THEN OClock = OClock || lang.333

return(right(OClock,40))

defcfg:
tailmark=0
lameacc=200
sysopmovetaxx=200
sysopdeltaxx=255
sysopcopytaxx=255
sysopterntaxx=255
sysopicetaxx=255
sysopnketaxx=255
sysoptchtaxx=255
sysopimptaxx=255
pltpath="BBS:Extras/FlistPalette/"
sdlpath="BBS:Extras/FlistSaveDL/"
pswpath="BBS:Extras/FlistPasswords/"
fpmpath="FILE:Fpm/"
tempath="T:FList/"
cfgpath="BBS:Configs/"
txtpath="BBS:Text/"
binpath="BBS:Bin/"
usrpath="BBS:Users/"
taversion="1.2g6"
defwait=1
col_file=wht
col_size=yel
col_date=blu
col_desc=cyn
col_bar=bblu
maxclock="ON"
scrlmethod=1
precommexe="Run <NIL: "
plugik="ON"
userhelp="ON"
helphim=5
areacomm="ON"
gopher=""
enlargemark="OFF"
flistcache="ON"
fpmopt="OFF"
assignoutput="[Mounted]"
mname.1="JAN"
mname.2="FEB"
mname.3="MAR"
mname.4="APR"
mname.5="MAY"
mname.6="JUN"
mname.7="JUL"
mname.8="AUG"
mname.9="SEP"
mname.10="OCT"
mname.11="NOV"
mname.12="DEC"
return

ansify: /* If this routine isn't highly-optimised to the MAXIMUM I'm the pope %) */
arg gangsta
if words(left(currfname.gangsta,23))>1 then if left(currfname.gangsta,1)~="\" then return('n/a                   'col_size'   0k 'col_date'!!-!!!-!! 'col_desc'[FList] Illegal, Filename contains space')
if words(currfname.gangsta)<3 then return('n/a                   'col_size'   0k 'col_date'!!-!!!-!! 'col_desc'[FList] Illegal, FILES.BBS entry invalid')
dyf=substr(currfname.gangsta,33,6)
mon=substr(dyf,3,2)
return(translate(left(currfname.gangsta,21)" "col_size||right(substr(currfname.gangsta,25,7)%1024+1"k",5)" "col_date||right(dyf,2)' 'geniushaha.mon' 'left(dyf,2)' 'col_desc||substr(currfname.gangsta,40,40),' ',d2c(9)))

tenf:
smeeegheed=1
do bigtenfour=start to start+(scrln-1)
    if ~carrier then exit
    if left(Currfname.bigtenfour,1)~="\"&bigtenfour~=bebob&bigtenfour~=1 then smeeegheed=0
end
if smeeegheed=1 then print ""scrln+7";0H"clr||kl
return

restip:
send clr""row"H"||col_file
tip=upper(word(currfname.raw,1))
if mark.tip.goarea="Y" then send RED||BLD
print left(ansify(raw),93)
if checkoffline=1&~exists(areapath||word(currfname.i,1)) then print "AC"RED||BLD||FSH||lang.334||clr
return

alertit:
parse arg ctu
send d2c(7)||clr
send ""scrln+7";0H"kl||ctu||GRN" - "clr
send bld||yel||lang.335||grn||lang.336||yel||lang.337
getchar
send clr""scrln+7";0H"kl
return

clearsarea:
arg amou
call open(sneakyout,tempath'goochi'bbsline,'w')
call writech(sneakyout,"H"clr)
glip=scrln
if datatype(amou)="NUM" then glip=amou
do glip
    call writeln(sneakyout,kl)
end
call writech(sneakyout,"H")
call close(sneakyout)
sendfile tempath"goochi"bbsline
address command 'delete "'tempath'goochi'bbsline'" >NIL:'
return

lloose:
parse arg werm
send ""scrln+4"H"kl||BLD||YEL||lang.338" "d2c(7)
print fsh||bld||blu'['yel||'HELP'blu'] 'clr||grn||bld||left(werm,63)
send ""scrln+4"H"BLD||YEL||lang.338" "
address command "wait 1 >NIL:"
return

boomtown:
address command 'Run >NIL: Delete "'tempath'~(#?MARKED#?)" FORCE >NIL:'
sl clr||bld"[FList] "ver$" "lang.339||clr
exit

break_C:
break_D:
break_E:
break_F:
return

CaseConvert:
arg conv_str
conv_str=translate(CONV_STR,Xrange('a','z'),Xrange('A','Z')) ; tmp=''
do a=1 to words(CONV_STR)
    if ~carrier then signal boomtown
    tmp=tmp||upper(left(word(CONV_STR,A),1))substr(word(CONV_STR,A),2)' '
end
CONV_STR=left(tmp,length(tmp)-1)
return(CONV_STR)

checkpath:
parse arg sock
if right(sock,1)="/" then sock=left(sock,length(sock)-1)
if ~exists(sock) then do
    sl "[FList] "sock" "lang.340
    address command 'makedir "'sock'" >NIL:'
    if ~exists(sock) then do
        newline
        print red||bld||lang.341||ubld
        newline
        sl "[FList] "sock" "lang.342
        continue
        signal boomtown
    end
end
return

spinwrite: /* This idea came to me one night in Manchester while sitting on
              the doorstep of an old persons home drinking many cans of
              Breaker =) - 5 Infact - I personally wouldn't reccomend
              drinking 5 cans of that vile shit %^) - Didn't get to house
              till 4:30am - Very, very pissed/sick =() */

send clr""scrln+7";0H"kl||pnk||bld||lang.343||ubld
call open(icelemonteaout,goarea,'w') /* Don't ask =:-) */
moodle=2
if areacomm="ON" then moodle=5
do yamma=moodle to bebob-1
    call writeln(icelemonteaout,currfname.yamma)
    if pos('.',yamma/5)=0 then do
        perc=((yamma*100)/(bebob-1))
        dol=pos('.',perc)
        if dol>0 then do
            byb=substr(perc,dol+1,1)
            perc=left(perc,dol-1)
            if byb>=5 then perc=perc+1
        end
        send "["right(perc,3,'0')"%]D"
    end
end
send ""scrln+7";0H"kl
call close(icelemonteaout)
Call Open(in,goarea,'R')
oldsize=seek(in,0,'E')
call close(in)
return

/* Mucho respect goes out to Jamie Prince for the original TrapGhost code! */
/* Works a treat m8 :) Thanks for fidning the rf's on fts standard and making */
/* This up */

trapghost:
parse arg '"'msgareapath'" "'filename'" "'fromname'" "'toname'" "'subject'"'
if right(msgareapath,1)~="/" then msgareapath=msgareapath'/'
address command 'list 'msgareapath'#?.msg files quick nohead >t:TrapGhost.temp'
call open(in,"t:trapghost.temp",r)
currenthigh=0
do while ~eof(in)
    data=readln(in)
    parse var data num'.'
    if num>currenthigh then currenthigh=num
end
call close(in)
currenthigh=currenthigh+1
fromname=fromname''copies(d2c(00),36-length(fromname))
toname  =toname''copies(d2c(00),36-length(toname))
subject =subject''copies(d2c(00),72-length(subject))
d1=date()
d2=word(d1,1)' 'word(d1,2)' '
d3=right(word(d1,3),2)
date=d2||d3'  'time()||d2c(00)
data=copies(d2c(00),23)||d2c(01)||copies(d2c(00),2)
VIA=d2c(01)" * Via FList "ver$" "lang.344" - (c) S.Gillibrand 1997 *"d2c(10)||d2c(13)||d2c(00)
open(ou,msgareapath''currenthigh'.msg',w)
call writech(ou,fromname''toname''subject''date''data)
open(in,filename,r)
do while ~eof(in)
    line=readln(in)
    call writech(ou,line''d2c(13))
end
call writech(ou,via)
call close(ou)
call close(in)
address command 'trump 'msgareapath' >NIL:'
call open(in,cfgpath'Message.Cfg','r')
dummy=readln(in)
do (dummy*6)+11;dum=readln(in);end
msgareas=readln(in)
do zelk=1 to msgareas
    dummy=readln(in)
    if upper(readln(in))=upper(tgmailpath) then leave
    do 10;dummy=readln(in);end
end
call close(in)
return

/* New area changing routines - 04/04/96 */

areachange:
if ~carrier then signal boomtown
sl "[FList] Changing File Area"
if ceedee_now=1 then signal cdareahandler
if extdev_now=1 then signal edevareahandler
pageno=1
send ""scrln+7";0H"
Prompt 4 'NORMAL' '"'clr||BLD||RED||lang.345' 'YEL'['GRN'X/Q'lang.162||lang.190', ? 'lang.346', > 'lang.347', < 'lang.348||YEL']'GRN': 'WHT'"'
fa=upper(result)

if fa="?" then do
    do until fa~="?"
        send clr
        cls
        if exists("BBS:Rexx/FList_Area.Trans") then do
            call 'BBS:Rexx/FList_Area.Trans'
            si '2'
            fa=result
        end
        else do
            if exists(txtpath"FileLibs."right(useraccess,3,'0'))|exists(txtpath"FileLibs."right(useraccess,3,'0')".ANSI") then sendfile txtpath"FileLibs."right(useraccess,3,'0')
            else if exists(txtpath"FileLibs."useraccess)|exists(txtpath"FileLibs."useraccess".ANSI") then sendfile txtpath"FileLibs."useraccess
            else if exists(txtpath"FileLibs.ANSI")|exists(txtpath"FileLibs") then sendfile txtpath"FileLibs"
            else listfileareas
            newline
            Prompt 4 'NORMAL' '"'clr||BLD||RED||lang.345' 'YEL'['GRN'X/Q'lang.162||lang.190', ? 'lang.346', > 'lang.347', < 'lang.348||YEL']'GRN': 'WHT'"'
            fa=upper(result)
        end
    end
    call redraw
end

si '2'
fanumb=result
if fa=">" then fa=fanumb+1
if fa="<"&fanumb>1 then fa=fanumb-1
if fa="X"|fa="Q" then signal markemate
if datatype(fa)~="NUM" then do
    call alertit(lang.349)
    fa=fanumb
end
if fa>areas|fa<1 then do
    call alertit(lang.350)
    fa=fanumb
end

send ""scrln+7";0H"

return(fa)

/* New area changing routines - 04/04/96 */

setarea:
arg an

si '2'
moocow=result

if extdir=1 then moocow="666" /* (8 */
extdir=0

detonator:

filearea an                                /* Set new file area */
if result~=1 then do                       /* Check for success */
    call maffair
    an=areachange()
    signal detonator
end
systeminfo 'z'
areaname=result                            /* Areaname */
areapath=apat.areaname                     /* Areapath */
sl "[FList] "lang.245": "an", "lang.351": "areaname /* Log It */

if pos('#'areapath'#',restrictACCESS.useraccess)>0|pos('#'areapath'#',restrictFLAGS.userflags)>0|pos('#'areapath'#',restrictACAGS.userflags.useraccess)>0 then do
    call maffair
    an=areachange()                        /* Is It Allowed By SysOp? */
    signal detonator
end

goarea=areapath'files.bbs'                 /* Define GO Variable */

if ~exists(goarea) then do                 /* oOps - Area Empty! */
    cls
    newline
    print RED||BLD||lang.352
    newline
    an=areachange()
    signal detonator
end

send ""scrln+7";0H"kl
if moocow~=an then call redraw(1)

call pragma('Directory',areapath)

return(an)

cdromhandler:
sl "[FList] "lang.353
ceedee_now=1
nast=0
send clr;cls
print kon||tbpliner
if ~open(in,cfgpath'FList.CDROM','r') then do
    newline
    print clr||red||fsh||bld||lang.354
    sl "[FList] "lang.355
    newline
    continue
    signal markemate
end
print clr||bblu||bld||cyn||left("FList CDRom SubSystem",78)||clr
newline
print grn||bld||lang.356
cds=0
do 12
    cac=readln(in)
end
do until eof(in)
    cds=cds+1
    cdesc.cds=readln(in)
    cpath.cds=readln(in)
    cacfg.cds=readln(in)
    cansi.cds=readln(in)
    caxxs.cds=readln(in)
    cflag.cds=readln(in)
end
call close(in)
cds=cds-1
send "A"
do i=1 to cds
    address command 'assign "'cpath.i'" exists >'tempath'FListCd.Tmp'bbsline
    call open(in,tempath'FListCd.Tmp'bbsline,'r')
    shite=readln(in)
    call close(in)
    if pos(assignoutput,shite)=0 then status.i=lang.357
    else status.i=lang.358
    nast=0
    do z=1 to 8
        if substr(cflag.i,z,1)="X"&substr(userflags,z,1)~="X" then nast=1
    end
    if useraccess>=caxxs.i&nast=0 then print bld||yel"["right(i,3,'0')"] "red||left(cdesc.i,64)" "pnk||status.i||clr
    else print bld||yel"["right(i,3,'0')"] "ubld||red||left(lang.31,64)" "bld||pnk||status.i||clr
end
do 2;newline;end
do until datatype(cdselect)="NUM"&cdselect>0&cdselect<=cds
    if ~carrier then signal boomtown
    prompt length(cds) 'NORMAL' '"'bblu'A'left(' ',78)'D'yel||bld||lang.359' 'pnk'['grn'Q'lang.162||lang.190', ?'lang.162||lang.360||pnk']'yel': 'wht'"'
    cdselect=upper(result)
    send clr
    newline
    if cdselect="?" then signal cdromhandler
    if cdselect="Q" then do
        ceedee_now=0
        return
    end
end
sl "[FList] "lang.361||cdselect" - {"cdesc.cdselect"}"
nast=0
do z=1 to 8
    if substr(cflag.cdselect,z,1)="X"&substr(userflags,z,1)~="X" then nast=1
end
if useraccess<caxxs.cdselect|nast=1 then do
    newline
    print clr||red||lang.362||clr
    sl" [FList] "lang.363
    newline
    continue
    signal cdromhandler
end
if status.cdselect~=lang.358 then do
    newline
    print clr||red||bld||lang.364
    sl "[FList] "lang.365
    newline
    continue
    signal cdromhandler
end
if ~open(in,cacfg.cdselect,'r') then do
    newline
    print red||lang.366' - Please Inform The SysOp :('clr
    sl "[FList] "lang.366
    newline
    continue
    signal cdromhandler
end
do 12
    cac=readln(in)
end
cdareas=readln(in)
send clr;cls
newline
print grn||bld||lang.356
newline
call open(Out,tempath'jinx'bbsline,'w')
call writeln(out,'H')
call writeln(out,kl||kon||tbpliner)
call writeln(out,'')
call writeln(Out,clr||bblu||bld||cyn||left("FList CDRom SubSystem - "cdesc.cds,78)||clr)
call writeln(out,'')
do i=1 to cdareas
    cdareaname.i=readln(in)
    cdarealist.i=readln(in)
    cdareapath.i=readln(in)
    cdaccess.i=readln(in)
    cdflags.i=readln(in)
    nast=0
    do z=1 to 8
        if substr(cdflags.i,z,1)="X"&substr(userflags,z,1)~="X" then nast=1
    end
    if compress(cansi.cdselect)="" then do
        if useraccess>=cdaccess.i&nast=0 then call writech(out,bld||yel||right(i,3,'0')" "red||left(cdareaname.i,35))
        else call writech(out,bld||yel||right(i,3,'0')" "ubld||red||left(lang.31,35))
    end
    i=i+1
    if i>cdareas then leave
    cdareaname.i=readln(in)
    cdarealist.i=readln(in)
    cdareapath.i=readln(in)
    cdaccess.i=readln(in)
    cdflags.i=readln(in)
    nat=0
    do z=1 to 8
        if substr(cdflags.i,z,1)="X"&substr(userflags,z,1)~="X" then nast=1
    end
    if compress(cansi.cdselect)="" then do
        if useraccess>=cdaccess.i&nast=0 then call writeln(out," "bld||yel||right(i,3,'0')" "red||left(cdareaname.i,34))
        else call writeln(out," "bld||yel||right(i,3,'0')" "ubld||red||left(lang.31,34))
    end
end
call writeln(out,'')
call close(in)
call close(out)

if compress(cansi.cdselect)~="" then address command 'copy "'cansi.cdselect'" "'tempath'jinx'bbsline'" noreq >NIL:'

cdareahandler:
do until datatype(areaselect)="NUM"&areaselect>0&areaselect<=cdareas
    if ~carrier then signal boomtown
    sendfile tempath'jinx'bbsline
    newline;newline
    prompt length(cdareas) 'NORMAL' '"'bblu'A'left(' ',78)'D'bld||grn||left(cdesc.cds,50)||yel||lang.367' 'pnk'['grn'Q'lang.162||lang.190||pnk']'yel': 'wht'"'
    areaselect=upper(result)
    send clr
    newline
    if areaselect="Q" then signal cdromhandler
end
sl "[FList] "lang.368||areaselect" - {"cdareaname.areaselect"}"
nast=0
do z=1 to 8
    if substr(cdflags.areaselect,z,1)="X"&substr(userflags,z,1)~="X" then nast=1
end
if useraccess<cdaccess.areaselect|nast=1 then do
    newline
    print clr||red||lang.369||clr
    sl" [FList] "lang.370
    newline
    continue
    signal cdareahandler
end
if ~exists(cdarealist.areaselect) then do
    newline
    print clr||red||lang.371||clr
    sl" [FList] "lang.372
    newline
    continue
    signal cdareahandler
end
extdir=1
goarea=cdarealist.areaselect
areapath=cdareapath.areaselect
zeon=zeon+1
farea=zeon
npat.zeon=areapath
areaname="[CD] "cdareaname.areaselect
call redraw
call pragma('Directory',cpath.cdselect)
pageno=1
signal fscroller
exit

louise_sleeper:
row=3
raw=(start+row)-3
if left(Currfname.raw,1)="\" then do
    do until left(currfname.raw,1)~="\"
        if ~carrier then signal boomtown
        raw=(start+row)-3
        row=row+1
        if row<3 then leave
    end
    row=row-1
    if row<3 then row=oldrow
end
return

submark:
arg raw
nareapath=areapath
if pos(word(currfname.raw,1),markstring)>0 then do
    markstring=delstr(markstring,pos(word(currfname.raw,1),markstring),length(word(currfname.raw,1)))
    mkf=mkf-1
    tip=upper(word(currfname.raw,1))
    mark.tip.goarea="N"
    send BBLU||BLD||WHT""row"H"left(ansify(raw),93)
    unmarkfile word(currfname.raw,1)
    defmodule="ON!"
    sl "[FList] "lang.373" ["word(currfname.raw,1)"]"
end
if pos(word(currfname.raw,1),markstring)=0&defmodule~="ON!" then do
    sl "[FList] "lang.374" ["word(currfname.raw,1)"]"
    ftmark=word(currfname.raw,1)
    if extdir>0 then do
        if ~exists("file:flist/"ftmark) then do
            print clr||bld||yel||bblu||left(lang.375,57)
            address command 'Copy "'npat.zeon||ftmark'" file:flist noreq >NIL:'
        end
    end
    if mkf>=maxmark then do
        call alertit(clr||RED||BLD||lang.376)
        sl "[FList] "lang.377
        return
    end
    if mkf>=bian then do
        call alertit(clr||RED||BLD||lang.378)
        sl "[FList] "lang.379
        return
    end
    markstring=markstring||ftmark' '
    golfball=upper(ftmark)
    if extdir>0 then jam.buttie.golfball="Don't Even Ask :-)"
    mkf=mkf+1
    milestone=golfball
    if length(currfname.raw)>80 then do
        zeon=zeon+1
        areaofile.milestone=zeon
        npat.zeon=substr(currfname.raw,80)
        if ~exists("file:flist/"ftmark) then do
            print clr||bld||yel||bblu||left(lang.375,57)
            address command 'Copy "'npat.zeon||ftmark'" file:flist noreq >NIL:'
        end
    end
    else areaofile.milestone=farea
    goar.milestone=goarea
    descofile.milestone=substr(currfname.raw,40,40)
    cap=raw+1
    data="\"
    if strip(upper(descofile.milestone),'T')="FILE_ID.DIZ DESCRIPTION" then do
        do until left(data,1)~="\"
            data=currfname.cap
            if left(data,1)="\" then descofile.milestone=descofile.milestone'º                      'substr(currfname.cap,35,45)
            if cap=bebob then data=""
            cap=cap+1
        end
    end
    mark.golfball.goarea="Y"
    sl "[FList] "lang.380" ["ftmark"]"
    send BBLU||BLD||RED''row'H'left(ansify(raw),93)
end

defmodule="OFF NOW SAID SHITSU!"
send clr"A2H"GRN||lang.154||WHT||mkf" "

return

edevhandler:
sl "[FList] "lang.381
extdev_now=1
nast=0
send clr;cls
print kon||tbpliner
if ~open(in,cfgpath'FList.ED','r') then do
    newline
    print clr||red||fsh||bld||lang.382
    sl "[FList] "lang.383
    newline
    continue
    signal markemate
end
print clr||bblu||bld||cyn||left("FList ExtDev SubSystem",78)||clr
newline
print grn||bld||lang.356
eds=0
do 12
    cac=readln(in)
end
do until eof(in)
    eds=eds+1
    edesc.eds=readln(in)
    epath.eds=readln(in)
    eacfg.eds=readln(in)
    eansi.eds=readln(in)
    eaxxs.eds=readln(in)
    eflag.eds=readln(in)
end
call close(in)
eds=eds-1
send "A"
do i=1 to eds
    address command 'assign "'epath.i'" exists >'tempath'FListEd.Tmp'bbsline
    call open(in,tempath'FListEd.Tmp'bbsline,'r')
    shite=readln(in)
    call close(in)
    if pos(assignoutput,shite)=0 then status.i="Offline"
    else status.i="Online"
    nast=0
    do z=1 to 8
        if substr(eflag.i,z,1)="X"&substr(userflags,z,1)~="X" then nast=1
    end
    if useraccess>=eaxxs.i&nast=0 then print bld||yel"["right(i,3,'0')"] "red||left(edesc.i,64)" "pnk||status.i||clr
    else print bld||yel"["right(i,3,'0')"] "ubld||red||left(lang.31,64)" "bld||pnk||status.i||clr
end
do 2;newline;end
do until datatype(edselect)="NUM"&edselect>0&edselect<=eds
    if ~carrier then signal boomtown
    prompt length(eds) 'NORMAL' '"'bblu'A'left(' ',78)'D'yel||bld||lang.384' 'pnk'['grn'Q'lang.162||lang.190', ?'lang.162||lang.360||pnk']'yel': 'wht'"'
    edselect=upper(result)
    send clr
    newline
    if edselect="?" then signal edevhandler
    if edselect="Q" then do
        extdev_now=0
        return
    end
end
sl "[FList] "lang.385||edselect" - {"edesc.edselect"}"
nast=0
do z=1 to 8
    if substr(eflag.edselect,z,1)="X"&substr(userflags,z,1)~="X" then nast=1
end
if useraccess<eaxxs.edselect|nast=1 then do
    newline
    print clr||red||lang.386||clr
    sl" [FList] "lang.387
    newline
    continue
    signal edevhandler
end
if status.edselect~="Online" then do
    newline
    print clr||red||bld||lang.388
    sl "[FList] "lang.389
    newline
    continue
    signal edevhandler
end
if ~open(in,eacfg.edselect,'r') then do
    newline
    print red||lang.390||clr
    sl "[FList] "lang.391
    newline
    continue
    signal edevhandler
end
do 12
    cac=readln(in)
end
edareas=readln(in)
send clr;cls
newline
print grn||bld||lang.356
newline
call open(Out,tempath'jinx'bbsline,'w')
call writeln(out,'H')
call writeln(out,kl||kon||tbpliner)
call writeln(out,'')
call writeln(Out,clr||bblu||bld||cyn||left("FList EDev SubSystem - "edesc.eds,78)||clr)
call writeln(out,'')
do i=1 to edareas
    edareaname.i=readln(in)
    edarealist.i=readln(in)
    edareapath.i=readln(in)
    edaccess.i=readln(in)
    edflags.i=readln(in)
    nast=0
    do z=1 to 8
        if substr(edflags.i,z,1)="X"&substr(userflags,z,1)~="X" then nast=1
    end
    if compress(eansi.edselect)="" then do
        if useraccess>=edaccess.i&nast=0 then call writech(out,bld||yel||right(i,3,'0')" "red||left(edareaname.i,35))
        else call writech(out,bld||yel||right(i,3,'0')" "ubld||red||left(lang.31,35))
    end
    i=i+1
    if i>edareas then leave
    edareaname.i=readln(in)
    edarealist.i=readln(in)
    edareapath.i=readln(in)
    edaccess.i=readln(in)
    edflags.i=readln(in)
    nat=0
    do z=1 to 8
        if substr(edflags.i,z,1)="X"&substr(userflags,z,1)~="X" then nast=1
    end
    if compress(eansi.edselect)="" then do
        if useraccess>=edaccess.i&nast=0 then call writeln(out," "bld||yel||right(i,3,'0')" "red||left(edareaname.i,34))
        else call writeln(out," "bld||yel||right(i,3,'0')" "ubld||red||left(lang.31,34))
    end
end
call writeln(out,'')
call close(in)
call close(out)

if compress(cansi.edselect)~="" then address command 'copy "'cansi.edselect'" "'tempath'jinx'bbsline'" noreq >NIL:'

edevareahandler:
do until datatype(areaselect)="NUM"&areaselect>0&areaselect<=edareas
    if ~carrier then signal boomtown
    sendfile tempath'jinx'bbsline
    newline;newline
    prompt length(edareas) 'NORMAL' '"'bblu'A'left(' ',78)'D'bld||grn||left(edesc.eds,50)||yel||lang.367' 'pnk'['grn'Q'lang.162||lang.190||pnk']'yel': 'wht'"'
    areaselect=upper(result)
    send clr
    newline
    if areaselect="Q" then signal edevhandler
end
sl "[FList] "lang.392||areaselect" - {"edareaname.areaselect"}"
nast=0
do z=1 to 8
    if substr(edflags.areaselect,z,1)="X"&substr(userflags,z,1)~="X" then nast=1
end
if useraccess<edaccess.areaselect|nast=1 then do
    newline
    print clr||red||lang.369||clr
    sl" [FList] "lang.370
    newline
    continue
    signal edevareahandler
end
if ~exists(edarealist.areaselect) then do
    newline
    print clr||red||lang.371||clr
    sl" [FList] "lang.372
    newline
    continue
    signal edevareahandler
end
extdir=1
goarea=edarealist.areaselect
areapath=edareapath.areaselect
zeon=zeon+1
farea=zeon
npat.zeon=areapath
areaname="[ED] "edareaname.areaselect
call redraw
call pragma('Directory',epath.edselect)
pageno=1
signal fscroller
exit

flick:
send ""scrln+7";0H"
send clr||bld||red||lang.393" "cyn"("yel"R"cyn")"grn||lang.394", "cyn"("yel'8/'lang.395||cyn")"grn" "lang.396", "cyn"("yel"2/"lang.397||cyn")"grn" "lang.398" "wht||fsh"::> "clr
do until flickopt="R"|c2d(flickopt)=13
    getchar;flickopt=upper(result)
    If flickopt = '9b'x | flickopt='5B'x then Do
        maygetchar ; Tmp = result
        If Tmp = 'A' then flickopt='8'
        If Tmp = 'B' then flickopt='2'
        If Tmp = 'C' then flickopt='6'
        If Tmp = 'D' then flickopt='4'
    End
    if flickopt='6' then do 2;call flickdn;end
    if flickopt='2' then call flickdn
    if flickopt='4' then do 2;call flickup;end
    if flickopt='8' then call flickup
    send clr||bld""scrln+3"H"col_bar||red"C["grn||right(pageno,length(pages),'0')||WHT"/"YEL||pages||red"]"clr
end
send ""scrln+7";0H"kl
call scroll
return

flickdn:
if pageno<pages then do
    pageno=pageno+1
    if pageno=pages then start=bebob-(scrln-1)
    else start=start+scrln
end
return

flickup:
if pageno>1 then do
    if start-scrln<1 then start=scrln+1
    pageno=pageno-1
    start=start-scrln
end
return


touch:
if compress(markstring)="" then do;call alertit(RED||BLD||lang.152);return;end

comeback=customquest(lang.426)
if upper(comeback)~="Y" then return

print ""scrln+4"H"kl
send ""scrln+4"H"BLD||WHT||lang.399" "clr
do words(markstring)
    send "."
end

do pork=1 to words(markstring)
    vthing=upper(word(markstring,pork))
    send ""scrln+4";"pork+10"H"clr||bld||red"o"
    mkf=mkf-1
    gulp=goar.vthing
    mark.vthing.gulp="N"
    send clr"A2H"GRN||lang.154" "WHT||mkf" "
    do cheese=2 to bebob-1
        if upper(word(currfname.cheese,1))=vthing then do
            dte=date()
            clever=upper(substr(dte,4,3))
            select
                when clever=mname.1 then magnet='01'
                when clever=mname.2 then magnet='02'
                when clever=mname.3 then magnet='03'
                when clever=mname.4 then magnet='04'
                when clever=mname.5 then magnet='05'
                when clever=mname.6 then magnet='06'
                when clever=mname.7 then magnet='07'
                when clever=mname.8 then magnet='08'
                when clever=mname.9 then magnet='09'
                when clever=mname.10 then magnet='10'
                when clever=mname.11 then magnet='11'
                when clever=mname.12 then magnet='12'
                otherwise magnet='01'
            end
            currfname.cheese=left(currfname.cheese,32)||right(dte,2)||magnet||left(dte,2)||substr(currfname.cheese,39)
        end
    end
    send ""scrln+4";"pork+10"H"clr||bld||red"O"
end
mkf=0

comeback=customquest(lang.427)
if upper(comeback)~="Y" then call sdoubleudoublev
else markstring=""

send clr"A2H"GRN||lang.154||WHT||mkf" "
call spinwrite
call scroll
return

dimport:

dimpath=areapath

send ""scrln+7";0H"kl
send ""scrln+7";0H"clr||bld||yel"("cyn"I"yel")"grn||lang.400"  "yel"("cyn"U"yel")"grn||lang.401||wht"  ::> "
getchar

if upper(result)="U" then do
send ""scrln+7";0H"kl
    query ""scrln+7";0H"YEL||lang.264" "cyn"\\Ram:"
    dimpath=result
end

send ""scrln+7";0H"kl
query ""scrln+7";0H"YEL||lang.402" "cyn"\\~(.message)"
expat=result
if upper(expat)="RESULT" then expat='#?'

send ""scrln+7";0H"kl
send ""scrln+7";0H"clr||red||lang.403" "bld||lang.405||ubld" "lang.404" "yel||bld

olay=''
do lazy=2 to bebob-1
    zagga=upper(word(currfname.lazy,1))
    olay=olay'­'zagga'­'
end

print "Done."

call clearsarea

send ""scrln+7";0H"kl
send ""scrln+7";0H"clr||red||lang.403" "bld||lang.406||ubld" "lang.404" "yel||bld

address command 'list files "'dimpath'~(#?.desc|files.bbs)" quick nohead pat="'expat'" lformat "%s" >"'tempath'dimport"'

send ""scrln+7";0H"kl
send ""scrln+7";0H"clr||red||lang.407" "bld||lang.408||ubld" "lang.409||yel||bld

/*if right(dimpath,1)="/" then dimpath=left(dimpath,length(dimpath)-1)*/

call open(dim,tempath'dimport','r')
do until eof(dim)
    data=upper(readln(dim))
    gotit=0
    if pos('­'data'­',olay)=0 then do
        if ~open(impf,dimpath||data,'r') then impsize="Unknown"
        else do
            impsize=seek(impf,0,'E')
            call close(impf)
        end
        send ""scrln+7";0H"kl
        send ""scrln+7";0H"clr||cyn||bld||data||grn" ("ubld||impsize" "lang.91||bld") "wht": "yel"("cyn"I"yel")"grn||lang.410" "yel"("cyn"S"yel")"grn||lang.411" "yel"("cyn"D"yel")"grn||lang.412" "yel"("cyn"A"yel")"grn||lang.413||wht" ::> "
        getchar
        if upper(result)="A" then do
            call close(dim)
            call reloadfiles
            call scroll
            return
        end
        if upper(result)="I" then do
            do m=1 to 15
                send ""scrln+7";0H"kl
                send clr||pnk||bld||lang.414" ("ubld||lang.415||bld") "cyn||m||clr"/"bld||cyn"15 "
                prompt 40 'NORMAL' '"'clr||bblu||bld||wht'                                        D"'
                impdesc.m=result
                send clr
                if upper(impdesc.m)="RESULT" then do;m=m-1;leave m;end
            end
            send ""scrln+7";0H"kl
            send ""scrln+7";0H"clr||bld||yel||m" "lang.416
            if open(fbout,areapath'files.bbs','a') then nop
            else call open(fbout,areapath'files.bbs','w')
            dte=date()
            clever=upper(substr(dte,4,3))
            select
                when clever=mname.1 then magnet='01'
                when clever=mname.2 then magnet='02'
                when clever=mname.3 then magnet='03'
                when clever=mname.4 then magnet='04'
                when clever=mname.5 then magnet='05'
                when clever=mname.6 then magnet='06'
                when clever=mname.7 then magnet='07'
                when clever=mname.8 then magnet='08'
                when clever=mname.9 then magnet='09'
                when clever=mname.10 then magnet='10'
                when clever=mname.11 then magnet='11'
                when clever=mname.12 then magnet='12'
                otherwise magnet='01'
            end
            if m=1 then call writeln(fbout,left(data,23)' 'right(impsize,7)' 'right(dte,2)||magnet||left(dte,2)' 'impdesc.1)
            else do
                call writeln(fbout,left(data,23)' 'right(impsize,7)' 'right(dte,2)||magnet||left(dte,2)' File_ID.DIZ description')
                do n=1 to m
                    call writeln(fbout,'\'copies(' ',38)||impdesc.n)
                end
            end
            call close(fbout)
            call open(dfout,areapath||data'.desc','w')
            call writeln(dfout,username)
            call close(dfout)
            address command 'filenote "'areapath||data'" "'impdesc.1'" >NIL:'
        end
        else if upper(result)="D" then do
            send ""scrln+7";0H"kl
            send ""scrln+7";0H"clr||red||bld||lang.417||yel
            address command 'delete "'dimpath||data'" >NIL:'
            print lang.418
        end
        send ""scrln+7";0H"kl
        send ""scrln+7";0H"clr||red||lang.407" "bld||lang.408||ubld" "lang.409||yel||bld
    end
end
call close(dim)
call alertit(clr||red||bld||lang.419)
call reloadfiles
call scroll
return

customquest:
parse arg custhom
send YEL""scrln+7";0H"kl||clr||bld||pnk||custhom" "grn"y"blu"/"red"N "wht||fsh"::> "clr||CYN
getchar
sculder=result
send YEL""scrln+7";0H"kl
return(sculder)

sdoubleudoublev:
mkf=words(markstring)
do sisters=1 to mkf
    voice=upper(word(markstring,sisters))
    ger=goar.voice
    mark.voice.ger="Y"
end
return